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PRESENTAZIONE 


/ programmi presentati in quest'opera sono stati scelti in modo da portare il lettore 
a formarsi una logica di base per la risoluzione di problemi di tipo matematico o stati¬ 
stico. 

Per la codifica di tali programmi si è utilizzato il Basic Applesoft implementato sul 
sistema Apple II, ma, dato che le particolarità di questa versione del Basic sono state 
utilizzate essenzialmente nella gestione dell’Input-Output e non nelle routines di cal¬ 
colo, risulta molto semplice adattare questi stessi programmi ad un’altra versione del 
linguaggio Basic. 

Per consentire un approccio graduale alle tecniche dell'analisi numerica, ci si è 
sforzati di presentare i problemi in ordine di difficoltà crescente. Fanno eccezione i 
primi due programmi di statistica (numeri 11 e 12) che per la semplicità di sviluppo 
potrebbero essere trattati anche prima di tutti gli altri. 

Ad ogni programma si è preposta una esposizione schematica dei metodo numeri¬ 
co e delle tecniche di programmazione utilizzati. Il lettore che trovasse insufficiente 
questa esposizione potrà comunque consultare la bibliografia consigliata a cui l’auto¬ 
re ha fatto specifico riferimento. 

Completa ogni capitolo, oltre ovviamente al listato del programma, il diagramma a 
blocchi relativo all’algoritmo utilizzato (stilato secondo i criteri di normalizzazione A- 
FNOR - ISO) e un esempio pratico in cui, tra l'altro, vengono specificati il tempo e la 
quantità di memoria utilizzati. 

Nell’intento di permettere al lettore di inserire ciascuno dei programmi presentati 
in un disegno più vasto, si sono strutturati i programmi stessi nel modo seguente: 

— un programma generale che assicura esclusivamente la gestione corretta su vi¬ 
deo dell’input-output; 

— una routine che rappresenta la risoluzione del problema proposto e che può esse¬ 
re a sua volta suddivisa in più subroutines. 


Per ogni procedura vengono dettagliate le regole per l’uso con particolare riguardo 



a: dati necessari (in input), risultati forniti, variabili, vettori e matrici utilizzati, funzioni 
e sottoprogrammi richiamati. 

Il dimensionamento dei vettori e delle matrici viene fatto nel programma principale 
in modo da evitare l’errore "redim’d array" se uno di questi viene utilizzato in più pro¬ 
cedure, oppure se viene più volte richiamata la procedura che contiene un'istruzione 
di dimensionamento. 

Consigliamo al lettore, per approfondire la comprensione dei programmi, di prova¬ 
re ogni programma proposto con un semplice esempio e di seguirne l’andamento 
passo passo, in modo da afferrare meglio il meccanismo degli algoritmi utilizzati. 



PROGRAMMA NUMERO 1 


INTERPOLAZIONE POLINOMIALE 
DI LAGRANGE 


Si supponga di conoscere i valori di una funzione y = f (x) in n + 1 punti [y 0 = f(x 0 ), 
y, = f(x,), y n = f(x n ) ] e di voler calcolare il valore di y corrispondente ad un 
generico valore di x. 

L’interpolazione polinomiale di Lagrange risolve questo problema permettendo di 
costruire una funzione polinomiale p(x) (di grado minore o uguale a n) passante per 
gli n + 1 punti del piano (x, y). 

Il valore cercato di y si può allora facilmente ricavare dal polinomio interpolatore 
P(x) ly = p(x) ]. 

Il valore cercato di y si può allora facilmente ricavare dal polinomio interpolatore 
P(x) ly = p(x) 1. 


1 - METODO NUMERICO 


Date n+1 coppie di valori (Xj, yj), si definiscono “funzioni elementari di 
Lagrange” relative a tali punti le funzioni Lj(x) 

(1) Li(x) : fr x ~* j (i=0, 1 . n) 

1-0 X i Xj 

I* i 


Si può verificare facilmente che queste funzioni soddisfano alla seguente pro¬ 
prietà: 


Li (x k ) = 5ik (k = 0, 1. n) ove 5 ik 


1 se i = k 


0 se iyt k 


1 



Il polinomio 

(2) P(x) =£ yi Li (x) 

i 0 

soddisfa le condizioni y = p(x,) in quanto risulta: 

P(Xk) = E yi Li (x k ) = £ yi 5ik=y k (k = 0, 1.n) 

no i o 

e pertanto l’espressione (2) rappresenta il polinomio interpolatore di Lagrange. Que^ 
sto polinomio permette di interpolare in un punto qualsiasi la funzione definita dalle 
n+1 coppie Xj, y. 

Riferimenti bibliografici: A2, B1, B2, C2, HI, L3. 

2 - TECNICA DI PROGRAMMAZIONE 

Le N+1 coppie di valori (X,, Y, ) vengono memorizzate nei due vettori X(l) e Y(I) 
(I = 0, 1, .... N). L'espressione (2) è allora calcolata mediante un ciclo (I = 0, 1, 
.... N) in cui ogni termine della (2) è a sua volta calcolato, per X = XI, mediante un 
ciclo (J = 0, 1, ..., 1—1, 1 + 1. N) applicando la formula (1). 
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4 _ PROGRAMMA 


1 REM 
? REM 

3 REM 

4 REM 

6 REM 

7 RFM 
p REM 

9 REM 

10 REM 
1 1 REM 
1 ? REM 

13 REM 

14 RFM 
1 ? REM 
16 REM 
100 REM 
HO REM Rifinì F ri "URO 
120 RFM 

130 HOME 

140 PRINT .* PRINT ■ INTERPOLAZIONE POLINOMIALE* 5 PRINT • TU 

LAORANGF* 

1 fio PRINT ! PRINT * AUTORE! H.HAIJT* 

160 VTAB (10) 

170 PRINT * 1,INTRODURRE IL NUMERO DI COPPIE - ! PRINT * CHE DEFTNISCON 

0 IL POLINOMIO - ! PRINT • INTERPOLATORE - ! PRINT 1 (N+l COPPIE HE 

FINISCONO UN POLINOMIO IH GRADO N) - 
180 PRINT 

170 PRINT • 2.INTRODURRE SUCCESSIVAMENTE LE COPPIE X,Y - ! PRINT 

700 PRINT - 3,DEFINIRE LA VARIABILE X PER CUI - ! PRINT ■ SI VUOLE CALO 

01 ARE IL VALORE - ! PRINT - DI INTERPOLAZIONE PER Y - 
710 VTAB (23)! HTAB (fi)! PRINT “PREMERE UN TASTO PER CONTINUARE - ! GET A« 

720 HOME 
230 REM 

240 REM GESTIONE DEI DATI IN INPUT 
250 REM 

260 INPUT •IL NUMERO DI COPPIE» - ! NI !N » NI - 1 
270 REM 

280 REM ISTRUZIONI DI DIMENSIONAMENTO 

290 REM 

300 DIM X(N),Y(N> 

310 EOR I = 0 TO N! REM INSERIMENTO DATI 
320 PRINT 'COPPIA "fi + 1 ?■! - 

330 INPUT - X= - !X(I> 

340 INPUT - Y= - !Y(I> 

350 NEXT I 

360 PRINT ! INPUT 'INTERPOLAZIONE PER X= - !XI 
370 REM 

380 REM CHIAMATA DEL SOTTOPROGRAMMA' 

370 REM 

400 GOSUB 1000 

410 REM 

420 REM GESTIONE DEI RISULTATI 
430 REM 

440 PRINT ‘VALORE INTERPOLATO Y= - !YI 

450 PRINT ! INPUT 1 VOLETE L'INTERPOLAZIONE PER UN ALTRO VALORE (S 0 N) 
? - !A* 

460 IF A* = - S - THEN GOTO 360 
470 END 

1000 REM %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

1010 REM SOTTOPROGRAMMA PER IL CAL COLO DELL/INTERPOLAZIONE 
1020 REM POLINOMIALE DI I AGRANGE 
1030 REM 
1040 REM 


INTERPOLAZIONE POLINOMTAI E 
DI l AGRANGE 

AUTORE! H.HAIJT 


DESCRIZIONE! 

QUESTO PROGRAMMA CONSENTE TI CALCOLO DEL 
VALORE DEI POI INOMin TNTERPOI ATORF 
DI LAORANGF PASSANTE PER UN MI «MERO ARBITRARIO 
DI PUNTI <X,Y> 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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1050 

REM 



1060 

REM 


1. .DATI NECESSARI 

1070 

REM 


* N=GRADO DEL POLINOMIO=NUMERO DI COPPIE -1 ! ) 

1080 

REM 


* X(I) E Y<I» (1=0,1,N> “VETTORI 

1090 

REM 


CONTENENTI LE N+1 COPPIE (X,Y> 

1100 

REM 


* XI“VALORE DI X PFR CUI 1 . 'INTER¬ 

1110 

REM 


POLAZIONE DEVE ESSERE CALCOLATA 

1120 

REM 


2.RISULTATI FORNITI: 

1130 

REM 


* YI “RISULTATO DELL. ' INTERPOL.AZIONE 

1140 

REM 


3.VARIABILI UTILIZZATE: 

1150 

REM 


DE, I, J, N, NIJ, XI, YI 

1160 

REM 


4.VETTORI UTILIZZATI: 

1170 

REM 


X(N),Y(N) 

.1180 

REM 

IH##*####*##***##***##*****#:**#######**#######*** 

1190 

YI = 

0 


1200 

FOR 

I 

= 0 TO N 

1210 

NU = 

Y ( I ) ! REM INIZIAI. IZZA?IONE DEL NUMERATORE 

.1220 

DE = 

i : 

REM E DEL DENOMINATORE 

1225 

REM 



1230 

REM 


CALCOLO DI UN TERMINE DELLA SOMMA 

1240 

FOR 

j 

= 0 TO N 

1250 

IF J = 

I THEN GOTO 1280 

1260 

NU = 

NIJ 

* (XI - X(J>> 

1270 

DE = 

DE 

* ( X < I > - X<J>> 


1280 NEXT J 
1285 REM 

1290 REM CALCOLO HELLO SOMMATORIA 
1300 YI = YI + NU / DE 
1310 NEXT I 
1320 RETURN 


5 - ESEMPIO PRATICO 


Si cerchi il valore di interpolazione per X = 3.5 ed X = 4.2 di una funzione defini¬ 
ta dalle cinque coppie: 


X,Y = (0,1), (1,-1), (2,-13), (4,5), (5,131) 


RI IN 


INTERPOLAZIONE POLINOMI Al.E 
DI I AGRANGE 

AUTORE.* h.haut 

1,INTRODURRE IL NUMERO DI COPPTF 
CHE DEFINISCONO II POLINOMIO 
INTERPOLATORE 

(N+1 COPPIE DEFINISCONO UN POLINOMIO 
DI GRADO N) 

2.INTRODURRE SUCCESSIVAMENTE !F COPPIE 
X t Y 


3,DEFINIRE t A VARIABILE X PER CUI 
S ! VUOLE CALCOLARE IL. VAI ORF 
DI INTERPOLA7T0NF PFR Y 
PREMERE UN TASTO PER CONTINUARE 
TI NUMERO DI COPPIE»?) 


COPPIA 


1 ! 

x=o 

Y.1 
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rnppTA ?? 

X~1 

Y ~ 1 

pnppTA Zì 

X~2 

Y ” 1. ?• 
nnppTA 4J 

X=4 

Y~ c i 

poppIA !-' : 

X"-5 

Y " 1.Z1 

INTERRO! AZIONE PFR X«3*?5 
UALORF INTERPOLATO Y=-1.A.?375 

UOI. r-TF I 'TNTFRPOI AZTONF PFR UN Al TRO 
UAI..ORF <S 0 bn ? B 

INTERPOLA?IONF PFR X^4*2 
UALORF INTERPOLATO Y«20*017! B i | ?99 

uni FTP !'TNTFRPOI AZIONE PFR UN A! IRÒ 
UALORF <0 0 N) 7 N 


tempo d’esecuzione: 1” 

memoria richiesta: 2484 bytes (senza REM : 768) 
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PROGRAMMA NUMERO 2 


VALORE NUMERICO DI UN POLINOMIO 
E DELLE SUE DERIVATE 


Si vuole calcolare il valore assunto da un polinomio dato (di grado n) e dalle sue 
derivate in un generico punto x 0 . 


1 - METODO NUMERICO 

1 .1— Calcolo del valore del polinomio per x = xo 

Sia dato il polinomio: 

(1) p(x) =£ ajX n ^ =a 0 x n + a, x n ~ 1 + ... + a n 

i=0 

Per calcolare il valore assunto da tale polinomio per x = x 0 si consideri l'espres¬ 
sione (1) (con x = x 0 ) scritta nella seguente forma equivalente: 

P(x 0 ) = (••■ (((a 0 x 0 + a,) x 0 + a 2 ) x 0 + a 3 ) x 0 +...) x 0 + a n 

da cui si ricava facilmente l’algoritmo di calcolo, noto sotto il nome di algoritmo di 
Horner- Ruffini: 

definiti per il polinomio (1) e per il valore x 0 i numeri di Horner nel modo seguente: 

k 0 = a 0 

k, = k 0 x 0 + a, 
k 2 = k, x 0 + a 2 


k i = k ì _ 1 x 0 + a. 


k n — k n _ì x 0 + a n 
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si avrà 


P(x„) k n 

1.2 — Calcolo delle derivate 

1.2.1 - DERIVATA PRIMA 

La derivata di p(x) sarà un polinomio di grado n — 1. 

Definito un polinomio p, (x) tale che: 

(3) p(x) = p(x 0 ) + (x - x 0 ) p,(x) 
si ponga 

(4) p, (x) =Vbix n - , - i 

i o 

Derivando entrambi i termini della (3) e ponendo x = x 0 si ottiene: 

P'(x 0 ) = P, (x 0 ) 

Dunque il valore della derivata di p(x) in x 0 coincide con il valore assunto dal poli¬ 
nomio p,(x) nello stesso punto. 

Utilizzando la (3) e la (4) si può allora scrivere: 

(5) I a: x n ~ 1 = P(x 0 ) + (x + x 0 ) "l 1 bì x n “ 1_i 

i o i=0 

e, tramite un confronto tra i due membri esprimere i coefficienti b, in funzione dei 
coefficienti a,. 

Si può facilmente verificare che i coefficienti del polinomio p,(x) sono uguali ai pri¬ 
mi n numeri di Horner di p(x 0 ): bi = ki (i =0,1,..., n — 1). 

Per calcolare il valore del polinomio p,(x) = p’(x) nel punto x 0 si può applicare ora 
l'algoritmo di Horner. 

Definiti i numeri di Horner per p,(x 0 ) come: 

Qn = k 0 

(6) q, = q 0 x 0 + k, 

Qn—1 = Qn—2 Xq + k n -1 


si ottiene: 

p’(x 0 ) = q n -i 
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1 2.2 - DERIVATE DI ORDINE SUPERIORE 

Generalizzando il ragionamento del paragrafo precedente e definiti i polinomi 


p m (x) =Pm(x 0 ) + (x - x 0 ) p m+1 (x 0 ), (m = 0, 1, n - 1) 


si può dimostrare che: 

- p(x) = P 0 (x) 

_ n valore della derivata di ordine i di p(x) nei punto x = x 0 è dato da: 

(7) p (i) (x 0 ) = ilPi(x 0 ). 

_ i coefficienti del polinomio Pj(x) sono i numeri di Horner relativi al polinomio 

Pi-i(x 0 >- 

Queste considerazioni permettono di sviluppare dettagliatamente l’algoritmo ri¬ 
chiesto. 

Riferimenti bibliografici: CI, DI, L3. 


2 - TECNICA DI PROGRAMMAZIONE 

I coefficienti a: sono memorizzati in un vettore A (I), 1 =0,1 .N. 

2.1 — Calcolo di p(xo) 

Si segue scrupolosamente l’algoritmo (2), inizializzando P = A(0) ed eseguendo 
ciclicamente N volte l’espressione P = P * X0 + A(I ). 

All'uscita dal ciclo la variabile P conterrà il valore assunto dal polinomio p(x) per 
x = x 0 . 


2.2 — Calcolo di p(xo) e di p’(xo) 

Si inizializzano le variabili PI e P rispettivamente con i valori 0eA(0). 

Si calcolano ciclicamente per N volte i valori delle espressioni 
PI = PI * X0 + P e P = P * X0 + A ( I ) 
seguendo gli algoritmi (3) e (6). 

All’uscita dal ciclo si avrà: 

P = p(x 0 ) e PI = p’(x 0 ) 
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2.3 — Calcolo di p(x) e delle sue derivate per x = xo 

Si utilizza un vettore P(l) (I = 0, 1, N) in cui l’elemento i-esimo è destinato a 
contenere il valore della derivata i-esima di p(x) calcolata per x = x 0 . [Si pon¬ 
ga P(0) = p 0 (Xq) = p (x 0 ) ]. 

Inizializzato il vettore P con i valori P(l) = A(N—1) si procede nel calcolo 
mediante N passaggi successivi (1=1, .... N) secondo lo schema seguente: 

Nel passaggio l-esimo si calcola ciclicamente per N — I — 1 volte l’espressione 

P(J) = P(J) + XO * P(J + 1) (J = N—1, N—2, .... 1-1) 

Dopo ogni passaggio, l’ultima componente del vettore P calcolata [vale a dire 
P(l — 1)] viene moltiplicata per il fattoriale di (I — 1), conformemente a quanto 
espresso nella formula (7). 


1 : : 1 

1 =2 


1 = N - 1 

1 = N 

P(N 1) P(N—1 ) + XO • P (N) 

P(N -1 ) = P(N—1 ) + XO • P (N) 


P(N—1 ) = P(N—1 ) + XO • P(N) 

P(N—1 ) = P(N—1 ) + XO • P (N) 

P(N 2) P(N - 2) + XO • P(N—1 ) 

P(N-2) = P(N-2) + X0*P (N-1) 


P(N—2) = P(N—2) + XO • P (N-1 ) 



P(1) =P(1) + XO • p (2) 




P(0) P(0)+X0.P(1) 
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4 - PROGRAMMA 

1 REM calcolo del valore 

O rem numerico di un polinomio 

3 rem e delle bue derivate 

4 REM 

n:; REM autore jh.haijt 

A REM 
7 REM 

R REM DESCRIZIONE:DOPO AVER INTRODOTTO 

9 REM I COEFFICIENTI DEI polinomio 

I o REM E IL PUNTO PER CUI SI VUOI E FBERUTRE * 

H REM IL CALCOLO- Il PROGRAMMA CAI..COI A 

1 ? REM IL.. VAL ORE DEI POL INOMIO NEL PUNTO 

13 REM OPPURE TALF VALORE E QUELLO 

•| 4 REM DELLA DFRTVATA PRIMA r OPPURE 

1.5 REM II. VALORE DEL POLINOMIO E DI 

16 REM TUTTE LE SUE DERIVATE-A SCELTA 

17 REM 

IR REM Jk^Jlc******^#*^**************^^^*'*#** 

1? REM 
20 REM 
100 REM 
1 . 1.0 REM 
1.30 REM 
1.30 HOME 

1.40 PRINT : PRTNT " CALCOLO DEI VA! ORE NUMERICO DI UN POI. INOMTO E 

DELLE DERIVATE ' 

1.00 PRINT * f PRINT * AUTORE ? H ♦ HAIJT" : 

1.60 PRINT ■ REGGI E D'US'O? "? PRINT 

1.70 PRINT - 1. ♦ INTRODURRE DI SFGUITO IL GRADO DEL. POLINOMIO,! 

COEFFICIENTI E II. PUNTO DI CALCOLO": PRINT 

1.00 PRINT " 2-SCEGI. IEEE II. TIPO DI CALCOL O? 

1. —VAI. ORE DEL POLINOMIO 2 

-VAI. ORE DEL POL INOMIO E DELI A DERIVATA PRIMA" 

190 PRINT " 3 -VAL. ORE DEI POLINOMIO E DI TUTTE L. 

E DERIVATE" 

200 PRINT ? PRINT " SIMBOI. OSIA ? PO(X) = VAL. ORE DEL POLINOMIO PI ( 

X ) - P2 ( X ) * , - PN < X ) - VAI OR ! DELLE DERIVATE " 

21.0 PRINT ? PRINT "PREMERE UN TASTO PER CONTINUARE" ? SET A$ 

'220 HOME 
230 REM 

240 REM GESTIONE DEI DATI IN INPUT 
350 REM 

260 INPUT "GRADO DEI POLINOMIO M ?N? PRINT 
270 REM 

200 REM ISTRUZIONI DI DIMENSIONAMENTO 
290 REM 

300 DIM A(N)» P ( N ) 

310 PRTNT ? POR I = 0 TO N? I-ITAR (51? PRTNT "GOFF- DI X A "JN T?CV - PFFK 
(37)? VTAD (CV>: HTAB (20)? INPUT "-"? A(I)? NEXT T 
370 PRTNT ? INPUT "CAI CO! 0 NE! PUNTO XO-"?XO 
330 PRINT ? INPUT "TIPO DI CALCOLO SOPITO *rTF 
340 REM 

350 REM CHIAMATA DEL SOTTOPROGRAMMA 

360 REM 

370 GOSUB 1000 

380 REM 

390 REM GESTIONE DFT RISULTATI 

400 REM 
41.0 HOME 

420 IF TE = 1 THEN PRINT "PO("J XO J") = "J P ? GOTO 480 

430 IF TE = 2 THFN PRINT "P0<'JXO;■) = *fPi PRINT ‘PI(■JXOf•) = ’J PI ! BOTO 4 

80 

440 FOR I = 0 TO N! PRINT *P*? I ! *<•JXOJ‘) = *JP<I ),' NFXT IS BOTO 480 
450 REM 

440 REM POSSIBILITÀ' DI CALCOLO IN UN ALTRO PUNTO 
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470 REM- 

480 PRINT !, PRINT ‘ ODI. FTP II. CALCOLO PER UN AURO PUNTO? *! INPUT * 

(SONI! *;a* 

490 IF A$ = ’8* THEN GOTO 300 
500 FNO 

1000 RFM ##*#*##**#*##########**####*####**####* 

1.010 REM SOTTOPROGRAMMA-PER II CALCOLO PEL 
1.070 REM MALORE DEI. POLINOMIO IN XO 

.1.030 REM P(X)=A<0> X A N+A(1.) X A ( N-1. ) + . ,.+A ( N-1 > X+A(N) 

1.040 REM E DI TUTTE I E SUE DFRIMATE 
1.050 REM 

1.0AO REM REGOLE D'USO! 

.1.070 REM 1 ■ DATI NECESSARI! 

1.080 REM * N=GRADO DEI... POLINOMIO 

.1.090 REM * Ad) =METTORF DEI COEFFICIENTI 

I. 1.00 REM SECONDO IL MODELLO DELLA RIGA 1030 

II. 1.0 REM * XO=PUNTO DI CALCOLO 

I. 170 REM * TF=1,2,3 ! 

.1.1.30 REM 1.«CALCOLO DI P(XO) 

II. 40 REM 2=CAL.COL.O DI p<X0) E P' (XO) 

1.1.50 REM 3=CALC0L0 DI P(XO) E DI TUTTE LE DERIMATE 

1.160 REM 2.RISULTATI FORNITI! 

1.1.70 REM #SE TE=.1. ,P=P(XO) 

1180 REM *BE TE=2,P=P(X0) E P1=SUA DERIVATA PRIMA 

1.1.90 REM #SE TE=3',P(0)=P(X0) fPd > . , ,P(N)=LE DERIVATE 

1.200 REM SUCCESSIVE IN X = XO 

1.21.0 REM 

1.720 REM 3.VARIABILI UTILIZZATE! 

.1.230 REM I,J,K,I. ,N,P,P.1,X0 

1.240 REM 4.VETTORI UTILIZZATI! 

1.250 RFM A(N),P(N) 

.1.270 REM SCELTA DEL TIPO DI CALCOLO 
1280 ON TE GOTO 1300,1360,1.430 
1290 REM TE=1 

1.300 P = A<0) 

1.31.0 FOR I = .1. TO N 
1.320 P = P * XO + Ad) 

1.330 NEXT I 

1340 RETURN 

1.350 REM TE=7 

1.360 PI = OiP = A(0) 

1370 FOR I = 1. TO N 

.1380 PI = PI * XO + P 
1390 P = P * XO + A (il ) 

1400 NEXT I 
141.0 RETURN 

14.70 REM TE = 3 

1.430 FOR I « 0 TO NiPd) * A ( N - I)! NEXT I 

1440 I... = .1! REM INIZIAI.IZZAZIONE DEL FATTORIALE 

.1.450 FOR I = 1 TO N 

1.460 FOR J = I TO N 

1.470 K = N + I - 1 - J 

1480 P(K) = P(K) + XO * P(K + 1) 

1.490 NEXT J 

1.500 P(K> = F*( K > * !... 

1510 L. = L. * I 
1.520 NEXT I 
1530 P(N> = P(N> * L 
1.540 RETURN 
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5 - ESEMPIO PRATICO 

Si vuole calcolare il valore del polinomio di quinto grado: 


x 5 + 4 x 2 + x — 2 e delle sue derivate per x = 2. 


RUN 

rA( COLO DEL VALORE NUMERICO DI UN 
POLINOMIO E DELLE DERIVATE 

AUTOREJH.HAUT 

reboi f n ' uso : 

1.INTRODURRE DI SEGUITO IL GRADO 
DEL POLINOMIO,! COEFFICIENTI E 
II. PUNTO DI CALCOLO 

2,SCEGLIERE IL TIPO DI CALCOLO! 

1.“VA! ORE DEL POLINOMIO 
2=VAL0RF DEL POLINOMIO E DELLA 
DERIVATA PRIMA 
EVALORE DEL POLINOMIO E 
DI TUTTE LE DERIVATE 

SIMBOLOGIAtPO(X)“VALORE DEL POLINOMIO 
P1(X),P2(X).,» PN(X >-VALORI 
DELLE DERIVATE 

PREMERE UN TASTO PER CONTINUARE 


GRADO DEI... 

POI. 

.INDMIO 

1 5 

COEF. 

DI 

X A 5 

~1 

COEF, 

DI 

X 

> 

=0 

COEF, 

DI 

X A 3 

=0 

COEF. 

DI 

X A 2 

= 4 

COEF. 

DI 

X A .1. 

_ H 

COEF. 

DI 

X 

> 

o 

— .1. 


CALCOLO NEL PUNTO X0=2 

TIPO DI CALCOLO SCELTO 3 
P0<2>=48 PI. < 2) =97 

P2(2)*168 P3< 2)=240 

P4(2)=240 F'5( 2 ) = 120 

VOLETE IL CALCOLO PER UN ALTRO PUNTO? 
<S 0 N>! N 


tempo d’esecuzione: 1” 

memoria richiesta: 3424 bytes (senza REM : 1131) 
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PROGRAMMA NUMERO 3 


DERIVAZIONE NUMERICA 
DI UNA FUNZIONE DISCRETA 

INTERPOLAZIONE DI NEWTON 


Come l’interpolazione polinomiale di Lagrange, l'interpolazione di Newton permet¬ 
te di calcolare il valore assunto da una funzione f(x), definita da n + .1 coppie di va¬ 
lori |xj, y, = f (xj) ], in un punto qualsiasi. 

Questo metodo di interpolazione è senza dubbio più efficace del precedente in 
quanto permette di calcolare direttamente sia il valore assunto dalla funzione sia 
quello assunto dalle sue prime n derivate in un punto a piacere. 


1 - METODO NUMERICO 

1.1 — Polinomio interpolatore di Newton 

Il polinomio interpolatore di Newton, passante per gli n + 1 punti [xj, y, = f(xj)l 
(i = 0, 1, ..., n) è il polinomio (di grado minore o uguale a n): 

P 0 (X) = D n + Dn— 1 (X - X n ) + Dn- 2 (x - X n ) (X - X n _, ) +... 

+ D 0 (X - X n ) (X - X n —i) ... (X - X 0 ) 

ove i Di rappresentano le “differenze divise" definite nel modo seguente: 

D n = lx n l = f(x n ) 

D n _i =|x n ,x n _ 1 |= --M-frn-1 1 - 

Xn - X n _i 
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lx„, X n -ll - I X n — 1 ■ X n — 2 I 

x n — x n—2 


(1) D n _2 [x n . X n —-|, X n — 2 I — 


D n 


• * x ol ~ 


[Xn. 


! - I X n —1. ... X n 


Il valore del polinomio P 0 (x) per x = t può essere allora calcolato con l’algoritmo 
di Horner (cfr programma numero 2) nel modo seguente: 


D 0 


( 2 ) 


a 0 (t - x,) + D, 


P 0 (t) " a n a n —1 (t x n ) + D n 

ove a 0 .a„ rappresentano i coefficienti di Horner di P 0 (x). In effetti il polinomio 

P 0 (x) può anche essere scritto nella forma: 

P 0 (x) = |... [ ID 0 (x — x,) + D, 1 (x x 2 ) + D 2 ] (x x 3 ) + ...) (x x n ) + D n 

1.2 — Derivazioni successive 

Definiti i polinomi P k (x) di grado n—k tramite la formula di ricorrenza: 

P k (x) = (x -1) P k+1 (x) + P k (t) (k = 0. n—1 ) 

si può dimostrare che: 

a) la derivata di ordine k di P 0 (x) calcolata in x = t è data da: 

p< k >(t) = K ! P k (t) 

b) le differenze divise di P k (x) sono i numeri di Horner di P k-1 (x). 

Riferimenti bibliografici: B1, B2, C2, C3, HI, L3, S2. 

2 - TECNICA DI PROGRAMMAZIONE 
2.1 — Calcolo dei Dj 

I valori iniziali x* e y, sono, come al solito, memorizzati nei vettori X(l) ed Y(l). 
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Il calcolo dei Dj si effettua con l’aiuto di un vettore D(J) che viene inizializzato 
ponendo D(J) = Y(J). 

Si procede poi in n passaggi distinti (I =1,2 .N). Ad ogni passaggio si effettua 

per N—1+1 volte l’istruzione: 

D(J) =--D(J + 1) - D(J)- = ^ N—1 ) 

v ' X(J + 1) - X(J) ' 


si ottengono cosi le N + 1 differenze divise come illustrato nello schema seguente 



inizializ- 






zazione 

1 = 1 

1 = 2 

1 = N — 1 

1 = N 

D(0) = 

[x 0 ] 

[x,, x 0 ] 

[x 2 , X,, x 0 ] 


lx n _i, .... x 0 ] 

tx n . x 0 ] 

D(1) = 

[x,l 

[x 2 , X,] 

lx 3 , X 2 , X,] 


lx n .X,] 


D(2) = 

[x 2 ] 

[x 3 , X 2 1 

[x 4 , x 3 , x 2 ] 




D (N—2) = 

[x„— 2 ] 

[x„-1. X n _ 2 l 

[x n , Xn.!, X n _ 2 l 




D (N—1 ) = 

[x„—il 

t x n» x n—il 





D (N) = 

[x n ] 







2.2 — Calcolo delle derivate 

- Per il calcolo delle derivate si segue un procedimento analogo a quello illustrato 
nel capitolo precedente (cfr paragrafo 2.3). 
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4 - PROGRAMMA 


1. REM DERIVAZIONE NUMERICA DI UNA FUNZIONE DISCRETA 

2 REM INTERPOLAZIONE DI NEWTON♦ 

3 REM 

4 REM AUTOREJH.HAUT 

5 REM 

6 REM 

7 REM descrizione: 

8 REM PARTENDO DA N+.1. COPPIE <X y Y=F(X)) r 

? REM IL PROGRAMMA PERMETTE DI CALCOLARE IN 

IO REM UN PUNTO X QUALSIASI IL VALORE DI 

1.1 REM UNA FUNZIONE F E DI TUTTE LE SUE DERIVATE 

12 REM CON 1/ INTERPOLAZIONE POLINOMIALE DI NEWTON 

14 REM 

15 REM 
1.00 REM 
.11.0 REM 
120 REM 
130 HOME 

140 PRINT TAB< 6 ) ?'DERIVAZIONE NUMERICA* 

150 PRINT TAB< 6>f*DI UNA FUNZIONE DISCRETA:* 

160 PRINT TAB( A)? * INTERPOLAZIONE DI NEWTON* 

.1.70 PRINT : PRINT T AB ( 20 ) ? * AUTORE : H ♦ HAIJT " : PRINT : PRINT 
180 PRINT * REGOLE D'USO:* 


26 




190 

200 

210 

220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 N 
330 
340 
350 
360 
370 
3B0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 

620 

630 

640 

650 

660 

1000 

1010 

1020 

1030 

1040 

1050 


PRINT 
) ) ) . 
PRINT 

* 

1.INSERÌRE IL 

NUMERO DI COPPIE 

(X(T) fY(I)=F( X (I 

■ 

2»INSERIRE LE 

COPPIE < X j. Y > L 'UNA 

UOPO 1 ' ALTRA ■ 

PRINT * 
COLAZIONE• 

3♦DEFINIRE IL 

PUNTO X PER CUI 

SI VUOLE L ' INTER 

PRINT 


4♦SCEGLIERE IL 

TIPO DI CALCOLO?■ 


PRINT 


1=CALC0L0 

DI F < X) ■ 


PRINT 

■ 

2-CALCOLO 

ni F(X) E F y <X)■ 


PRINT 

■ 

3=CAI colo 

ni F(X) E BELLE SUE 

HERIUATE * 

VTAB < 
HOME 

:23) : 

PRINT ■PREMERE 

UN TASTO PER CONTINUARE 

■ ? SET A* 


RFM 

REM BESTIONE DEI DOTI IN INPUT 

REM 

INPUT 1 IL. NUMERO DI COPPIE IX,Y>=';N15 PRINT 
= NI - 1.1 REM N=GRADO DEI POLINOMIO 

REM 

REM ISTRUZIONI DI DIMENSIONAMENTO 
REM 

DIM X(N),Y(N),PIN>,D(N) 

REM 

FOR I = 0 TO N 

PRINT ■ COPPIA 'ri + IP P 

INPUT ■ X='(XII> 

INPUT • y= - ;y<i> 

NEXT I 

PRINT ! INPUT 'CALCOLO NEL PUNTO X='!X 

PRINT : INPUT 'SCELTA DEL TIPO DI CALCOLO: '(CH 

REM 

REM CHIAMATA DEL SOTTOPROGRAMMA 

REM 

GOSUB 1000 
REM 

REM GESTIONE DEI RISULTATI 

REM 

ON CH GOTO 530,560,590 
REM TIP0=1 

PRINT 'F('1X1')='JPS PRINT 
GOTO 630 
REM TIP0=2 

print 'F< • ;xp ) = ■ ;p: print 'F'i ■ ;x; ■ ) = • ,*pi : print 

GOTO 630 
REM TIP0=3 

PRINT 'LE DERIVATE SUCCESSIVE DI F IN X SONO!' 

FOR I = 0 TO N - 1 STEP 2: PRINT 'F'P? TABI 4>P = ')P(I>; TABI 21 ) P F 
■;I + ir TABI 24)?'='!PII + 1): NEXT I 

IF N = 2 * INT IN / 2) THEN PRINT 'F'fN; TABI 4>P = ')PIN> 

REM POSSIBILITÀ' D'UN ALTRO CALCOLO 

INPUT 'SI VUOLE UN'ALTRA INTERPOLAZIONE IS 0 N)?PJA* 

IE A* = 'S' THEN GOTO 430 
END 

REM *********************************************** 

REM SOTTOPROGRAMMA PER II. CALCOLO DELL ' INTERPOLAZIONE 
REM POLINOMIALE DI NEWTON. 

REM 

REM 

REM 


1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 RFM 
1120 REM 
1130 REM 
1140 RFM 
1150 REM 


1.DATI NECESSARI 

* N=GRADO DEL POLINOMIO D'INTERPOLAZIONE 
(«IL NUMERO DI COPPIE IX,Y) - 1 '') 

* XII) E YII) = VETTORI CONTENENTI 
. LE N+l COPPIE IX,Y=FtX) ), 

11=0,1,...,N> 

* X=PUNTO PER CUI SI VUOLE L'INTERPOLAZIONE 

* CH =TIPO DI CALCOLO SCELTO : 

1=0AI COLO DI EIX) 

2=CAL COLO DI F1X) F F'IX) 
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3=CAL00L0 ni F ( X ) E DI TUTTE L.E SUE DERIVATE 


1.160 REM 
1.1.70 REM 
1180 REM 2♦RISULTATI FORNITI? 

1190 REM SE CH=1, P«F(X) 

1.200 REM SE CH=2? F*=F ( X ) , P1.=F ' (X) 

1220 REM SE CH=3,P(0)=F(X) 

1.230 REM P(I) <1 = 1, •♦. r N> = LE DERIVATE 

1240 REM SUCCESSIVE DI F IN X 

1.250 REM 3*VARIABILI UTILIZZATE? 

1260 REM F, I, J, K, L, N, N.1., X 

.1.270 REM 4 ♦ VETTORI UTILIZZATI? 

1280 REM D(N> ,F’(N) ,X(N) ,Y(N) 

1300 REM INIZIALIZZAZIONE DELLE DIFFERENZE DIVISE 

1.31.0 FOR I = 0 TO N 
1320 D(I) = Y(I) 

.1.330 NEXT I 

1340 REM CALCOLO DELLE DIFFERENZE DIVISE 

1350 FOR I = 1 TO N 
1.360 FOR J = 0 TO N - I 

1370 D< J) = <D(J + 1) - D< J)> / <X<J + I) - X< J)) 

1.380 NEXT J 

.1.390 NEXT I 

1.400 REM SCELTA DEL TIPO DI CALCOLO 

.1.41.0 ON CH GOTO 1420,1.480,1560 

1.420 REM CH=1 

.1430 P = D ( 0 ) 

.1440 FOR I = 1. TO N 

.1450 P = P * < X - X < I ) ) + D < I ) 

1.460 NEXT I 

1470 RETURN 

1.480 REM CH=2 

1490 P = D < 0 > 

.1.500 PI = 0 

1510 FOR I = 1 TO N 

1.520 PI = PI * <X - X«I>* -+- P 

.1.530 P = P * (X - X(D) + D < I ) 

1.540 NEXT I 

1550 RETURN 

1560 REM CH=3 

1570 REM INIZI Al...IZ7A7T0NF DEI P<I> 

1.580 FOR I = 0 TO N 

1590 F'(I> = D(N - I) 

1.600 NEXT I 

1610 F = 1? REM INIZIALIZZAZIONE DEL FATTORIALE 

1.620 NI = N - 1. 

1.630 REM CALCOLO DELLE DERIVATE SUCCESSIVE 

1.640 FOR I = 1 TO N 

1.650 L. = NI + I 

1.660 FOR J = I TO N 

1670 K = L - J 

1680 P<K> = P(K) + P(K + 1) * (X - X<J>) 

1690 NEXT J 

1.700 F*(K> = P<K) * F? REM MOLTIPLICAZIONE PER IL. FATTORIALE DI <1-1. ) 
1.710 F = F * I? RFM CALCOLO DEL FATTORIALE <F=I!) 

1720 NEXT I 

1.730 P<N) = P<N> * F 

.1.740 RETURN 
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5 - ESEMPIO PRATICO 

Data una funzione definita tramite le 6 coppie di valori (x,y): 
(0,1), (1,-1), (2,-19), (3,-35), (4,113), (5,851) 


si vuole calcolare il valore della funzione e delle sue derivate per x 


RUN 

DERIVAZIONE NUMERICA 
DI UNA FUNZIONE DISCRETA! 
INTERPOLAZIONE DI NEWTON 


AUTORE !H.HAUT 


REGOLE D'USO! 

1,INSERIRE IL NUMERO DI COPPIE 
<X(I),Y<I)=F<X<I>) ). 

2.INSERIRE LE COPPIE <X,Y> L'UNA 
DOPO L'ALTRA 

3>DEFINIRE IL PUNTO X PER CUI 
SI VUOLE L'INTERPOLAZIONE 
4.SCEGLIERE IL TIPO DI CALCOLO! 

1- CALCOLO DI F(X> 

2- CALCOLO DI F(X) E F'(X) 
3=CALC0L0 DI F(X> E DELLE SUE 

DERIVATE 

PREMERE UN TASTO PER CONTINUARE 
IL NUMERO DI COPPIE <X,Y>=6 

COPPIA 1 ! 

X-0 

Y=1. 

COPPIA 2 i, 

X=1 

Y=-l 

COPPIA 3 ! 

X = 2 
Y=-l? 

COPPIA 4 ! 

X=3 

Y=-35 

COPPIA 5 i 

X=4 

Y=113 

COPPIA 6 ! 

X=5 

Y=B51 


CALCOLO NEL PUNTO X=6 

SCELTA DEL TIPO DI CALCOLO! 3 
LE DERIVATE SUCCESSIVE DI F IN X SONO! 

FO =298? FI =3228 

F2 =2662 F3 =1596 

F4 =624 F5 =120 

SI VUOLE UN'ALTRA INTERPOLAZIONE 
<S 0 N)?!N 


tempo d’esecuzione: 1”1 

memoria richiesta: 4170 bytes (senza REM : 1433) 




PROGRAMMA NUMERO 4 


RADICI DI EQUAZIONI 
DI SECONDO, TERZO E QUARTO GRADO 


1 - METODI NUMERICI 

1.1 — Equazione di secondo grado 

Le soluzioni dell’equazione x 2 + bx + c = 0, posto q = — 4c, sono: 


a) se q > 0 due radici reali xi ,2 

b) se q < 0 due radici complesse xi ,2 

1.2 — Equazione di terzo grado 

Sia data l’equazione x 3 + a 2 x 2 + a,x 
assoluti dei coefficienti a; (X = max |aj|, i 

Si può dimostrare che: 


b_ + Vq 

2 ~ 2 



+ a 0 = 0 (2) e sia X il massimo dei valori 
= 0 , 1 , 2 ). 


a) se a 0 > 0 esiste una radice reale negativa nell'Intervallo [—(1 + X), 0] 

b) se a 0 < 0 esiste una radice reale positiva nell'Intervallo [0, (1 + A.)]. 

Si procede al calcolo di questa soluzione reale x, utilizzando il metodo d'etto della 
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bisezione dell'Intervallo (cfr programma numero 8); in seguito dividendo le (2) per 
(x — x,) si trova che le altre due soluzioni sono le radici dell'equazione quadratica: 

x 2 + (a 2 + x,) x + [a, + (a 2 + x,) x,] = 0 

che si risolve seguendo le regole (1). 


1.3 — Equazione di quarto grado 

Si voglia risolvere l’equazione: 

(3) x 4 + ax 3 + bx 2 + ex + d = 0 

Ponendo x = y — a/4 l’equazione (3) si scompone nelle due equazioni di secon¬ 
do grado in y: 

(4) (y 2 + 2ky + 1) (y 2 - 2ky + m) = 0 


ove: 


a) I + m — 4k 2 = q 
2k(m - I) = r 
Im = s 


q = b - 3a 2 /8 

(5) r = c — (ab/2) + a 3 /8) 

s = d - (ac/4) + (a 2 b/16) - (3a 4 /256) 


b) k 2 = z è una soluzione reale dell'equazione cubica 


(6) z 3 + a z 2 + (3 z + y = 0 
con a = q/2 

(7) (3 = (q 2 - 4s)/16 
y = - r 2 /64 


Il metodo consiste dunque nel risolvere l’equazione (6) con il sistema esposto nel 
paragrafo 1.2, nel calcolare poi ì valori di I e m risolvendo il sistema (5) e nel risolve¬ 
re infine le due equazioni (4) in modo da trovare le quattro radici cercate. 

Riferimenti bibliografici: B1, B3, DI, J1, W1. 
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2 - TECNICA DI PROGRAMMAZIONE 

Si definiscono un vettore R(4), destinato a contenere le soluzioni dell'equazione ed 
una matrice A(4,4) contenente i coefficienti dell'equazione di grado N: 

I A(N, l)X' = 0 (N = 2, 3, 4) 

i =o 

Il sottoprogramma 1000 affronta il problema nella sua generalità, mentre i sotto¬ 
programmi 2000 e 3000 risolvono rispettivamente le equazioni "normalizzate”: 

x 3 + A(3,2) x 2 + A(3.1) x + A(3,0) = 0 e x 2 + A(2,1) x + A(2,0) = 0 

Considerando risolto il problema relativo alla ‘‘ricerca di uno zero” (esposto nel ca¬ 
pitolo 8), il programma si snoda in modo piuttosto lineare. 

Vogliamo solo far risaltare che il sistema (5) viene risolto con tecniche diverse a 
seconda che sia uguale o diverso da zero, e precisamente: 

a) se y/ 0, essendo anche K 2 / 0, si possono utilizzare le formule: 

I + m = q + 4k 2 


( 8 ) 


I - m = r/2k 

b) se y = 0, ne consegue che k 2 = 0 è una soluzione della (6) e pertanto: 


1 . se q 2 - 4s > o si ha: 

I + m = q 

Im = s 

che equivale a: 

(9) I + m = q 

I — m = Vd 2 — 4s 

2. se q 2 — 4s < 0 non si possono utilizzare le (9). 

In questo caso però l'equazione (6) si riduce a:z 2 + az + p = 0e ammette due 
soluzioni reali di segno opposto (essendo p < 0). Basta allora considerare per 
k 2 la soluzione positiva e calcolare di conseguenza, tramite le (8), i valori di I 
ed m. 
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3 - DIAGRAMMA A BLOCCHI 



3 
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Pagina mancante 



Pagina mancante 



sottoprogramma per la 
risoluzione di 

X 3 + A(3,2) X 2 + A(3,1 ) X + A(3,0) 


A. dal testo 


Definizione dell'intervallo 
(A, B) dove esiste una 
radice reale 
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sottoprogramma per la risoluzione di 
X 2 + A(2,1) X + A(2,0) = 0 













4 - PROGRAMMA 


1 REM RISOLUZIONE HI FRUrtZIONI 

2 REM DI SECONDO,TERZO,QUARTO BRADO 

3 REM 

4 REM AUTOREJH.HAUT 

5 REM 
A REM 

7 REM DESCRIZIONE! 

B REM IL PROORAMMA PERMETTE DI CALCOLARE TUTTE 

? REM LE SOLUZIONI (EVENTUALMENTE COMPÌ ESSE) 

IO REM DI EQUAZIONI ALGEBRICHE 

1,1 REM DI SECONDO,TERZO E QUARTO GRADO 

1.3 RFM 

1.4 REM 
100 RFM 

110 RFM REGOLE IV USO 
120 RFM 
130 HOME 

140 UT AB < 3 > ♦ PRINT T AB ( 7 )?" RISOLUZIONE DI EQUAZIONI" 

150 PRINT TAB< 7)?"DI SECONDO,TERZO 0 QUARTO GRADO" 

160 PRINT ! PRINT TAB< 20)?"AUTORE t H♦HAUT" 

170 UTAB <7)♦ PRINT "REGOLE D'USOJ ": PRINT 

ISO PRINT " 1♦INTRODURRE IL GRADO DELL'EQUAZIONE" 

190 PRINT " 2» INTRODURRE I COEFFICIENTI PARTENDO DA QUEL¬ 
LO DELLA PIU' ALTA POTENZA DI X"t PRINT 

200 PRINT " 3♦LE SOLUZIONI SONO DATE SOTTO . LA FORMA l 

(PARTE REALE) + I (PARTE IMMA- GINAR 

IA) " 

210 UT AB (22)t PRINT "PREMERE UN TASTO PER CONTINUARE": GET A$ 

220 REM 

230 HOME 

240 REM 

250 REM ISTRUZIONI DI DIMENSIONAMENTO 
260 REM 

270 DIM A ( 4,4 )-R(4) 

2S0 REM 

290 REM GESTIONE DEI DATI IN INPUT 

300 REM 

310 INPUT "QUALE E' IL GRADO DELL'EQUAZIONE? "JN: PRINT 

320 FOR I = N TO 0 STEP - 1 

330 HTAB (5): PRINT "COEFFICIENTE DI X A "JI? 

350 INPUT "="?A(N,I) 

360 NEXT I 

370 PRINT : PRINT 

380 REM 

390 REM CHIAMATA DEI. SOTTOPROGRAMMA 

400 REM 

41.0 GOSUB 1000 

420 REM 

430 REM GESTIONE DEI RISULTATI 

440 REM 

450 ON N - 1. GOTO 470 ? 520,580 
460 REM 

470 REM EQUAZIONE DI SECONDO GRADO 

480 REM 

490 IE IM = 0 THEN PRTNT "RADICE 1 = " ;R( :l. ) : PRINT "RADICE 2="iR(2): END 
500 PRINT "RADICE 1 = "?R(1)?" +1 "?IM: PRINT "RADICE 2=", f R(2)J" -I " 

;im: end 

510 REM 

520 REM EQUAZIONE DI TERZO GRADO 

530 REM 

540 PRINT "RADICE 1=-";R(3) 

550 IF IM •- 0 THEN PRINT "RADICE 2="?R(1): PRINT "RADICE 3="JR<2): END 
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560 PRINT -RADICE ?=■ JR<1>>* +T • JIMJ PRTNT • RADICE 3=*}R<2>$* -I • 



?tm: 

ENTI 





570 

REM 






500 

REM 

EQUAZIONE 

DI QUARTO GRADO 




590 

REM 






600 

IE IM 
620 

= 0 THEN 

PRINT ’RADICF 1 = 

■;R<1>! PRINT •RADICE 

2"■5 R(2 > J 

OPTO 

610 

PRINT 

?IM 

•RADICE 1. 

= ■ ? R < 1. > J • +T ■ 

JTMt PRTNT "RADICE 2^' 

1 ?r<2>; * 

-I ' 

620 

IF II 

= 0 THEN 

PRTNT *RADTCF 3= 

• !R(3)! PRINT •RADICE 

4=■? R(4 >: 

END 

630 

PRINT 

•RADICE 3 

= •JR(3)? • +T ■ 

ITI! PRINT 'RADICE 4=' 

1 f R < 4 > J ■ 

-I ' 


f II 

640 FND 

1010 REM SOTTOPROGRAMMA PER IL CALCOLO DELLE 
1020 REM RADICI DI UN'EQUAZIONE DI SECONDO,TERZO 
1025 REM 0 QUARTO GRADO 

1030 REM 

1040 REM REGOLE D'USO PER IL SOTTOPROGRAMMA 
1050 REM 

10*0 REM 1«DATI NECESSARI! 

1070 REM * N=GRADO DELL'EQUAZIONE 

1080 REM * A(N,I)=COEFFICIENTI DI X A I NELLA 

1090 REM EQUAZIONE! <I=0,...,N> 

1100 REM 2,RISULTATI FORNITI! 

1110 REM LE RADICI SONO DATE NELLE FORME! 

1120 REM #SE N=2! R(l. >+I IM 

1130 REM R(2>-I IM 

1140 REM #SE N=3! R(l)+I TM 

1150 REM R(2)-I IM 

1160 REM R(3) 

1170 REM *SE N=4! R(l)+I IM 

1180 REM R< 2)-I IM 

1190 REM R<3)+I IM 

1200 REM R(4)-I IM 

1210 REM 3,VARIABILI UTILIZZATE! 

1220 REM A,AM,AY,B,C,D,ER,I,II,IM,K,L,M 

1230 REM Q,Q1,Q2,R,S,SW,TE,TT,XA,XB,XC,Y1,Y2,UI 

1.240 REM 4.VETTORE E MATRICE UTILIZZATI! 

1250 REM A(4,4),R<4) 

1260 REM 5.FUNZIONE UTILIZZATA! 

1270 REM F(X) 

1280 REM 6,SOTTOPROGRAMMI RICHIAMATI! 

1290 REM 2000,3000 

1300 REM 

1310 REM OSSERVAZIONE IMPORTANTE! 

1320 REM A(N,N) DEVE ESSERE DIVERSO DA ZERO 

1330 REM (L'EQUAZIONE DEVE ESSERE VERAMENTE DI GRADO N) 

1340 REM g*********************************************** 

1350 REM NORMALIZZAZIONE DEI COEFFICIENTI 

1360 FOR I = 0 TO N - 1 

1370 A < N,I) = A(N,I) / A < N,N> 

1380 NEXT I 

1390 REM SALTO RELATIVO A N 
1400 ON N - 1 GOTO 1410,1440,1480 
1410 REM EQUAZIONE DI SECONDO GRADO 
1420 GOSUB 3000 
1430 RETURN 

1440 REM EQUAZIONE DI TERZO GRADO 
1450 GOSUB 2000 
14*0 RETURN 
1470 REM 

1480 REM EQUAZIONE DI QUARTO GRADO 
1490 REM 

1500 A = A<4,3)!B = A(4,2)!C = A(4,1)!D = A(4,0) 

1510 REM 
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CALCOLO DI G,R,S <OFR <4) NEL TESTO) 


1520 REM 
1530 REM 
1540 0 = B - <3 * A # A / 8) 

1550 R = C - <A * B / 2) + <A * A * A / 8) 

1560 S = D ~ <A * C / 4) + (A * A # B / 16) ~(3*A*A*A*A/ 256) 

1570 REM 

1580 REM DEFINIZIONE DEI COEFFICIENTI DELL'EQUAZIONE 

1600 REM CUBICA <5> DEL TESTO 

1610 A(3,2> =0/2 

1620 A(3 r 1) = <Q * Q - 4 * S) / 16 

1630 A(3r0) = - <R * R / 64) 

1640 REM 

1650 REM CALCOLO DI UNA RADICE REALE DEI L'EQUAZIONE 
1660 REM 

1670 TF <R < > 0) OR <A<3,1) > = 0) THEN GOTO 1760 

1680 REM 

1690 REM CASO PARTICOLARE IN CUI L'EQUAZIONE (5) E' DI SECONDO GRADO 
1700 REM 

1710 A < 2 r1) = A<3,2):A(?,0) = A<3,1> 

1720 GOSUB 3000! REM RISOLUZIONE DI '5) 

1730 R<3> = R<1)1 REM SI PRENDE IA RADICE POSITIVA 
1740 GOTO 1810 
1750 REM 

1760 REM CHIAMATA DEL SOTTOPROGRAMMA 3000 CON SU—1 PER CALCOLARE UNA 

1770 REM RADICE 

1780 SU = - 1 

1790 GOSUB 2000 

1800 REM 

1810 K = SOR <R<3>>: REM RADICE REALE DELL'EQUAZIONE (5) 

1820 IF N = 0 THEN R = SOR <Q*Q-4#S>: GOTO 1880! REM CALCOLO DI 

L-M SF K=0 

1830 Q = 0 + (4 * R(3)>: REM L+M 
1840 R = R / (2 * K>! RFM L-M 
1850 REM 

1860 REM CALCOLO DI I ED M 

1870 REM 

1880 L = <Q - R> / 2!M = (Q + R) / 2 
1890 REM 

1900 REM RISOLUZIONE DELLE 2 EQUAZ.DI 2ND0 GRADO (CFR <3> NEL TESTO) 
1910 REM 

1920 A(2f1) = 2 * K!A(2,0) = L 

1930 GOSUB 3160? REM PRIMA EQUAZIONE 

4940 R<3> = RII) - <A<4,3> / 4)?R<4) = R<2) - (A(4,3> / 4)!II = IM! REM 
TRASFERIMENTO DELLA SOLUZIONE IN R(3),R(4),II 
1.950 A<2r 1 ) = - 2 * KJA(2,0> = M 

1960 GOSUB 3160? REM SECONDA EQUAZIONE 

1970 R < 2) = R(2 » - (A < 4 f 3) / 4 > SR <1) = RII) - <A(4,3> / 4) 

1980 RETURN 

2010 REM SOTTOPROGRAMMA PER IL CALCOLO DELLE SOLUZIONI DELL'EQUAZIONE 

2020 REM X A 3 + A(3-2)*X A 2 + A(3,1)*X + A(3,0> = 0 

2030 REM 

2040 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA: 

2050 REM 1. DATI NECESSARI.* 

2060 REM * A<3,2),A(3,1) ED A<3,0)^COEFFICIENTI 

2070 REM DELL'EQUAZIONE 

2080 REM * BW=-.1. SE SI VUOLE CALCOLARE SOLO UNA 

2090 REM RADICE REALE 

2100 REM ALTRIMENTI SU QUALSIASI 

2110 REM 2,RISULTATI FORNITI: 

2120 REM #SE SU=-1,R(3)=RADICE REALE 

2130 REM «ALTRIMENTI l.E RADICI DELL'EQUAZIONE SONO 

2140 • REM R <1) +1 IM 

2150 REM R<2) -I IM 

2160 RFM R<3) 

2170 REM 3.VARIABILI UTILIZZATE: 
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2180 

21.90 

2200 

2210 

2220 

2230 

2240 

2250 

2.260 

2270 

2280 

2290 

2300 

2310 

2320 

2.330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2425 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2505 

251.0 

2511 

2515 

2516 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3080 
3090 
3100 
3110 
3120 


REM A,AM,B,ER,I, TM , RI , Q2, SW , TF , TT, 1*1 ? 

REM XA f XB r Xn r Y1. r Y2 

REM 4*VETTORE E MATRICE UTILIZZATI? 

REM A<4,4) f R<4) 

REM 5♦FUNZIONE UTILIZZATA? 

REM F ( X ) 

REM 6♦SOTTOPROGRAMMA CHIAMATO? 

REM 3000 

IF A ( 3,0 ) = 0 THFN XC = 0? ROTO 2560? REM IN QUESTO CASO C'E' UNA 
RADICE NULLA 
REM 

REM RICERCA DEL COEFFICIENTE MAGGIORE IN VALORE ASSOLUTO 
REM 

AM = ABS (A(3,0) ) 

FOR I = 1 TO 3 
TT = ABS ( A ( 3,1 ) > 

IF (AM < TT) THEN AM = TT 

NEXT I 

REM 

REM DEFINIZIONE DELL'INTERVALLO IN CUI C'E' UNA RADICE REALE 
REM 

IF A ( 3,0 ) > 0 THEN A = ~ AM - 1?B = 0? GOTO 2440 

A=0?B=AM+1 
REM 

REM RICERCA DELLA RADICE REALE XC NELL'INTERVALLO A,B? 

REM METODO DELLA BISEZIONE 
REM 

DEF FN F(X) = X * X * X + A(3,2) * X * X + A(3,1.) * X + A(3,0) 

REM DEFINIZIONE DELL'INTERVALLO IN CUI C'F' LA RADICE ? XA-XB 
XA = A ?XB = B?Y1 = EN F(A)? Y2 = FN F(B) 


ER = 1E - 6? REM PRECISIONE VOLUTA 
IF Y1 = 0 THEN XC = A? GOTO 2560? REM RADICE TROVATA 

IF Y2 = 0 THEN XC = B ?- GOTO 2560? REM RADICE TROVATA 

XC = (XA + XB) / 2? TE = FN F(XO? REM XC=PUNTO MEDIO DI XA-XB 

IF TE = 0 THFN GOTO 2560 

IF (XB - XA) < ER THEN GOTO 2560? 

REM SE L'AMPIEZZA DELL'INTERVALLO E' 

REM MINORE DELLA PRECISIONE RICHIESTA, XC E' LA RADICE CERCATA 
REM 

REM DEFINIZIONE DEL NUOVO INTERVALLO E PROSECUZIONE DELLA RICERCA 
IF ( FN F(XA) * TE) > 0 THEN XA = XC? GOTO 2500 
XB = XC? GOTO 2500 


REM 

R(3) = XC? REM R(3)-RADICE REALE 

REM 

IF SU = - 1 THEN RETURN ? REM SI CALCOLA SOLO LA RADICE REALE 

REM' 

REM CALCOLO DELLE RADICI DELL'EQUAZIONE QUADRATICA (2) DEL TESTO 
REM 

REM DEFINIZIONE DEI COEFFICIENTI 
A(2,1) = A(3,2) + XC 

A(2,0) = A(3,1) + A(3,2) * XC + XC * XC 
GOSUB 3000? REM CALCOLO DELLE RADICI 
RETURN 

REM SOTTOPROGRAMMA PER IL CALCOLO DELLE RADICI DELL'EQUAZIONE? 

REM X A 2 + A(2,1)*X + A(2,0) = 0 

REM 

REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
REM 1♦DATI NECESSARI 

REM * A(2•1) ED A(2,0) = COEFFICIENTI DELL'EQUAZIONE 

REM 2.RISULTATI FORNITI 

REM LE RADICI S0N0?R(1)+I IM 

REM R(2)-I IM 

REM 3♦VARIABILI UTILIZZATE 

REM IM,Q1,Q2,U 
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31.30 REM 4 , VETTORE E MATRICE UTILIZZATI 
31.40 R’FM A ( 4,4 ) - R < 4 ) 

3150 REM M******************************************************* 

3160 W = A ( 2 f 1. ) * A < 2 r 1. ) - 4 * A<2,0>! REM W=DISCRIMINANTE DEI L'EQUAZIONE 

3170 Q1. = - A (2,1. ) / 2 

3180 RFM CONTROLLO SUL SEGNO DI W 

3190 ON ( SGN (W) + 2) GOTO 321.0-3280,3340 

3200 RFM 

321.0 REM W<0 

3220 REM 

3230 Q2 = SOR ( - W) / 2 

3240 IM = 02L REM PARTE IMMAGINARIA 

3250 R ( 1 ) = 01. :r<2) = 01. : REM PARTI REALI 

3260 RETURN 

3270 REM 

3280 REM W=0 

3290 REM 

3300 R< 1 ) = 01. JR(2) = 01 J REM RADICE REALE DOPPIA 

3310 IM = 0 

3320 RETURN 

3330 REM 

3340 REM W>0 

3350 REM 

3360 0.7 = SOR <UJ) / 7 

3370 IM = O: REM DUE RADICI REALI 

3380 R ( 1. ) = 01. + 02 

3390 R ( 7 ) =01. - 02 

3400 RETURN 

5 - ESEMPIO PRATICO 


Calcolare le soluzioni dell’equazione x 4 + 4x 2 — 3x + 3 = 0 


RI.IN 

RISO! IIZinNF DI fouaziont 
DT SECONDO*TERZO 0 QUARTO GRADO 


AUTORE -t H. HAUT 

RFGOI.F D'USO? 

1. , INTRODURRE II . GRADO DELL 'E0UA7T0NE 

? * INTRODURRE I COEFFICIENTI 
PARTENDO DA QUEI I O DELLA PIU' 

Al. TA POTENZA DT X 

3,1 E SOLUZIONI SONO DATE SOTTO 
i..a forma: 

<PARTE REALE) + I (PARTE IMMA¬ 
GINARIA) 

PREMERE UN TASTO PER CONTINUARE 
OLIALE E' II... GRADO DELL'EQUAZIONE? 4 

COEFFICIENTE DI X A 4 = 1. 

COEFFICIENTE DI X A 3=0 
COEFFICIENTE DI X a ?=4 
COEFFICIENTE DI X A 1.=3 
COEFFICIENTE DI X A 0=~3 


RADICE !.«, 771.8.22931. +T 

RADICE 7= *271822931 -I 

RADICE 3= » 55*5982246 
RADICE 4=-1,0996781.1 


2,1.9841689 
7,19841689 
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RMW 

RTBO! U7T0NF TiT FONAZIONI 
nr secondo»tfrzo n quarto grado 


ALI T OR Fi H, HA! IT 

Rpnni F D ' ! ISO * 

1 4 INTRODURRE TI GRADO DELI 'FRUA7IONF 

? .. INTRODURRE T COFFFTCIFNTT 
PARTENDO HA QUEI I O RFI.I A PT1I-' 

A! TA POTENZA HI X 

7 ..\ r Rni (17TONI BONO IIATF RATTO 

i a forma: 

(PARTE RFA! F ) + T (PARTE IMMA¬ 
GINARIA ) 

PREMERE UN TASTO PER CONTINUARE 
QUALE E' IL GRADO DELL'EQUAZIONE? 4 

COEFFICIENTE DI X A 4 = 1 
COEFFICIENTE DI X A 3=0 
COEFFICIENTE DI X A 2==4 
COEFFICIFNTE DI X A l=-3 
COEFFICIENTE DI X A 0»3 


RADICE 1**449702657 +1 

RADICE 2-* 449702657 -I 

RADICE 3=-*449702657 + 1 

RADICE 4=-*449702657 -I 


731.070323 
731.070323 
1. ♦ 967231.85 
1.196723185 


tempo d’esecuzione: 3”5 

memoria richiesta: 8286 bytes (senza REM : 2373) 
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PROGRAMMA NUMERO 5 


INTEGRAZIONE NUMERICA 


Il programma realizzato permette di scegliere tra cinque diversi metodi numerici di 
integrazione. I primi quattro permettono di integrare una funzione definita in un inter¬ 
vallo finito mentre il quinto permette di effettuare l’integrazione su un dominio il cui e- 
stremo superiore sia infinito. 


1 - METODI NUMERICI 


1.1 — Regola di Simpson con 2n intervalli 


/ f(x) dx = h/3 [ f 0 + 4 (f, + f 3 + ... + f 2n _i) 

+ 2 (f 2 + f 4 + ... + f 2 n— 2 ) + f 2nl 

ove h =- ^ 2n & — efi =? f (xj), Xj =a + ih 


1.2 — Regola di Bode (10 punti) 


/ f(x) dx = -29^76- [16067 (f ° + f ’ o) + 106300 (fl + fs) 

- 48525 (f 2 + f 8 ) + 272400 (f 3 + f 7 ) 
-260550 (f 4 + f 6 ) + 213684 (f 5 + f 6 ) 


ove h = 


b — a 
10 


e fj =f(xj), Xj =a + ih 
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1.3 — Regola di Gauss (12 punti) 

b 

/ f(x) dx = r W, f(y,) 

a tL j 0 


con 


ove y, = (- - b 2 a ) X| + ( -P - + a ..) 


x o ~ 

- X 6 

= .12523 

34085 

w 0 = w 6 

= .24914 

70458 

X 1 = 

- *7 

= .36783 

14989 

w, = w 7 

= .23349 

25365 

x 2 = 

- X 8 

= .58731 

79542 

W 2 = Wg 

= .20316 

74267 

X 3 = 

“ X 9 

= .76990 

26741 

W 3 = Wg 

= .16007 

83285 

X 4 = 

X 10 

= .90411 

72563 

w 4 = w 10 

= .10693 

93259 

X 5 = 

- X 11 

= .98156 

06342 

W 5 = W„ 

= .04717 

53363 


1.4 — Regola di Chebyshev (9 punti) 

ove x 0 = 0 

x, = - x 5 = .16790 61842 
x 2 = — x 6 = .52876 17831 
x 3 = - x 7 = .60101 86554 
x 4 = - x 8 = .91158 93077 


1.5 — Estremo superiore infinito 

Si utilizza un caso particolare delia regola di Gauss (12 punti) esposto nel 
paragrafo 1.3. Si ha: 


oo 

/f(x) dx = 2 


a 


11 

I 

i ^0 


Wj 

(1 + X;) 2 


f ( 


2 

1 + Xi 


+ a — t) 


dove gli Xj ed i Wj sono definiti come nel paragrafo 1.3. 

Nota: Conviene scegliere di volta in volta il metodo più conveniente. Il lettore potrà 
trovare a questo proposito numerose notizie nella letteratura consigliata. 
Una delle precauzioni da prendere consiste comunque nel verificare che la 
funzione integranda non presenti dei punti di discontinuità all'Interno dell'Inter¬ 
vallo di integrazione. 

Riferimenti bibliografici: A2, B1, B2, C3, C4, HI, LI, L2, S3, S2, W1. 
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2 - TECNICA DI PROGRAMMAZIONE 


Tutti i metodi sopra citati si prestano ad una programmazione lineare che non pre¬ 
senta eccessive difficoltà. 

I valori xì, wì e le ascisse di Chebyshev sono memorizzate nei vettori X( 11 ) e 
W(11 ); A e B rappresentano gli estremi di integrazione. 
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3 - DIAGRAMMA A BLOCCHI 



Scelta del metodo 

1 = Simpson 

2 = Bode 

■ 3 = Gauss 

4 = Chebyshev 

5 = estremo superiore 
infinito 
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= ST 


= ST 















dtfimùont «Jet 
coefficiente 

ve a ) 

















y=(¥>« 
+ (^ 


NT = NT+ 
wa)*f(y) 


RETURN 





















Integrazione con il limite 
superiore infinito 












4 - PROGRAMMA 


i. 

o 

3 

4 

A 

7 

8 
9 

1.0 
1.1 

17 
13 
1.4 
15 
1.7 

18 
1.9 
20 
21 
100 
110 
120 
130 
140 
150 
1.60 
170 


180 

190 


200 

210 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

HOME 


INTEGRAZIONE NUMERICA 


AUTORE H* MAI IT 


descrizione: 

IL PROGRAMMA PROPONE CINQUE METODI DTVFRSI 
PER CAI..COI ARF ! ' INTEGRALE DI UNA FUNZIONE 
DEFINITA DALL'UTENTE, QUESTI METODI SONO: 

1. ♦ REGOLA DI SIMPSON 

2, REGOLA DI RODE (10 PUNTI) 

3♦ FORMULA DI GAUSS<12 PUNTI.) 

4.FORMULA DI CHEBYSHEV(9 PUNTI) 

5♦FORMULA DI GAUSS(LIMITE SUPERIORE INFINITO) 

L'UTENTE DEVE DEFINIRE LA FUNZIONE F(X) 

ALLA LINEA 270 


REGOLE D'USO 


PRINT TAB( 9);-INTEGRAZIONE NUMERICA♦* 

PRINT : PRINT TAB( 70)?"AUTORE :H♦HAUT■: PRINT 
PRINT "REGOLE D'USO:" 

PRINT " 1, L'UTENTE DEVE DEFINIRE LA FUNZIONE DA INT¬ 
EGRARE ALLA LINEA 270 COMF INDICATO: 27 

0 DFF FN F(X)=l/(1+X+XKX) 


PRINT " SE NON E' GIÀ' STATO FATTO PREMERE RESET., 

DEFINIRE LA FUNZIONE E LANCIARE IL PROGRAMMA" 

PRINT " 2,SCEGLIERE POI UNO DEI METODI SEGUENTI: 

1“REGOLA DI SIMPSON ?=R 

EGOL..A DI BOBE 3-FORMULA DI GAUSS" 

PRINT " 4«FORMULA DI CHFBYSHEV 5=LIMITE SUPER 

IORE INFINITO" 

PRINT " 3,DEFINIRE INFINE T LIMITI D'INTEGRAZIONE" 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

370 

330 

340 

350 

360 

370 

380 

390 

395 

400 

41.0 

470 

430 

440 


UT AB (73): PRINT "PREMERE UN TASTO PER CONTINUARE ": GFT A* 

HOME 

REM 

REM DEFINIZIONE DELLA FUNZIONE 
REM 

DEF FN F(.X) = 1. / (1. + X + X * X) 

REM 

REM ISTRUZIONI DI DIMENSIONAMENTO 
REM 

DIM X< 11 ) ,W( 1.1. ) -VC(5) 

REM 

REM GESTIONE DEI DATI IN INPUT 
REM 

PRINT "SCEGLIERE IL TIPO DI CAI COI.fi : 1.«SIMPSON 2=B0DF ? 3=GAUSS? 4=CHEBY 
SHEVr5=1.IMITE SUP INF," 

PRINT : INPUT "TIPO ="?M 

PRINT 

REM 

REM PER LA REGOLA DI SIMPSON SI DFVE SCEGLIERE IL NUMERO DI 

REM INTERVALLI 

REM 

IF M = 1. THFN PRTNT "CALCO!. 0 CON 7N INTERVALLI ■: INPUT " N="?N 

INPUT "LIMITE INFERIORE ~? A 

REM 

REM PER IL LIMITE SUP♦INFINITO, SI DEFINISCE BOI.O IL LIMITE INF, 
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450 RFM 

460 IF H = 5 THFN GOTO 400 

470 INPUT 1 LIMITF SUPFRTORE =’?P 

480 R ^M ^ r%rM _. _ 

490 RFM OHIAMAT0 PEI SOTTOPROGRAMMT SCELTI 

500 RFM 

510 ON M GOSUB 1000 ? 2000 ? 3000 - 4000 r 5000 
520 RFM 

530 REM GFSTIONE PEI RI BUI .TATI 
540 REM 

550 F'RINT ! PRINT 

560 PRINT ■ VOI ORE PEL I. ' INTEGRAIF= ■ ? NT 

1010 REM SOTTOPROGRAMMO P'INTEGRAZIONE 

1020 REM REGOLA PI SIMPBON CON 2N INTERVALLI 
.1.030 REM 

1040 REM REGOLE D'USO: 

1050 REM .1. ♦ DATI NECESSARI 

1060 REM * N=NUMERO BEGLI INTERVALLI 

1070 REM * A=LIMITE INFERIORE 

1080 REM * R=I.TMITE SUPERIORE 

1090 RFM * F(X)«FUNZIONE PA INTEGRARE 

1100 REM 2 * RISULTATI FORNITI♦ 

1.11.0 REM * NT=VALORE DELL'INTEGRALE 

1.120 RFM 3♦VARIABILI UTILIZZATE 

1.130 REM A.B f H r IrN-Nl P N2,NT f ST,X 

1140 REM 4♦FUNZIONE UTILIZZATA 

I. 1.50 REM F ( X ) 

II. 70 NT = 0! RFM INIZIAI IZZAZTONE DELL'INTEGRALE 

.1.1.80 H = <P - A) / <2 * N)l REM DEFINIZIONE PEL PASSO 
1190 NI.= 2 * N - 1♦N2 « NI - 1 

1200 RFM 

121.0 REM SOMMATORIA SUT PUNTI DISPARI 

1220 REM 

1230 ST = 0? REM AZZERAMENTO DELLA SOMMA PROVVISORIA 
1240 FOR I = 1 TO NI STEP 2 
1.250 X = A + (I * H> 

1260 ST = ST + EN F < X) 

1270 NEXT I 

1280 NT = ST * 4 
1290 REM 

1300 REM SOMMATORIA SUI PUNTI PART 

1.310 REM 

1.320 ST = 0 ♦ REM RI AZZERAMENTO PELI.A SOMMA PROVVISORIA 
1.330 EOR I - 2 TO N2 STEP 2 
1340 X = A + (I * H> 

1.350 ST = ST + FN F(X) 

1.360 NEXT I 

1370 RFM 

1380 REM CALCOLO DI NT 

1390 REM 

.1400 NT = NT + 2 * ST + FN F<A> + FN F(B) 

1410 NT = NT * H / 3 
.1.420 RETURN 

2000 REM JloKJloK**^*'*******^*#***^*^*******^*^**^*******^^****^^* 
2010 REM SOTTOPROGRAMMA P'INTEGRAZIONE 

2020 REM REGOLA PI POPE <10 PUNTI) 

2030 REM 

2040 REM REGOLE P'USO 

2050 REM 1♦PATI NECESSARI: 

2060 REM #A=LTMITE INFERIORE 

2070 RFM 3KB—I IMTTF SUPERIORE 

2080 RFM 3fcF <X)”EUNZTONE PA INTEGRARE 

2090 REM 2♦RISULTATI FORNITI: 

2100 REM *NT-VAI.ORE PEI I..' INTEGRALE 
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? 11.0 
91 90 
9130 

91.40 
91 50 
91 60 

9 170 
91 RO 
91 90 
9900 
991.0 
9990 

093O 

9940 

9 9 FIO 

9960 

9970 

9980 

2290 

2300 

231.0 

2320 

2330 

2340 

2350 

9360 

2370 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

31.00 

31.1.0 

31.20 

3130 

31.40 
3150 
31.60 
31.70 
31.80 
31.90 
3200 
321.0 
3220 
3230 
3235 
3240 
3250 
3260 
3270 
3280 
3290 
3300 

331.0 

3320 

3330 

3570 

4000 

4010 


RFM 3 » MORI OPTI T UT II. I77ATF 

REM AjPjH r I ,J,NT,ST-X 

RFM 4 » VETTORE I ITTI 177010 

REM OR < 5 1 

RFM 5 «■ FUN7I0NF LUTI.. T77ATA 

RFM F(X) 

NT “ O! RFM INIZIAI. T7707TONE UFI I ' INTEGRALE 
M =: < B - A ) / 101 RFM DEFINIZIONE UFI PARRÒ 
RFM 

REM DEFINIZIONE DEI. VETTORE VP 

RFM unCI)=COEFETCTFNTF DT F<T)+F<10~1) DAMA FORMULA DFI TESTO 
RFM 

VC<Oì - * 968341 4836? un ( 1 ) » 1. * 775359414 ? VC < 2) = - ♦ PI.04357063? VC < 3 > = 

4 .549462883?VC<4) = - 4 • 351.551 227 iUO f 3 ) : = 3 » 5688231 59 

RFM 

RFM FAI COI 0 DELI A SOMMA 
RFM 

FOR I = 0 TO 5 
J =10-1 
X = A + (I * H) 

ST = FN F ( X ) * 

X = A + (,.l * H) 

ST = ST + FN F(X)I REM ST=F<I)+F<10~T ) (CFR TESTO) 

NT = NT + VC'I) * ST? RFM CAI SOLO DI NT 
NFXT I 
NT = NT * H 
RETURN 

REM SOTTOPROGRAMMA D'INTE0RA7I0NF 
REM FORMULA DI GAUSS <1.2 PUNTI) 

REM 

RFM REGOLE D'USO! 

REM 1♦DATI NECESSARI? 

REM * A=LIMITE INFERIORE 

RFM * D=LIMITE SUPERIORE 

REM * F < X)«FUNZIONE DA INTEGRARE 

RFM 9,RISULTATI FORNITI? 

REM * NT=VALORE DELI 'INTEGRALE 

REM 3 *UARIADILI UTILIZZATE? 

REM A -B y I ? NT r Y 

REM 4.VETTORE UTILIZZATO? 

REM X ( 11 ) - U! < 1.1 ) 

REM 5*.FUNZIONE UTILIZZATA 

REM F < X) 

RFM 6♦SOTTOPROGRAMMA CHIAMATO? 

RFM 6000 

NT = OJ REM INIZIAI. I77AZI0NE DFI I. ' INTEGRALE 
REM 

REM CHIAMATA DEL SOTTOPROGRAMMA 3000 

REM CHE DEFINISCE I PUNTI PER CALCOLARE Y(I) <CFR TESTO) F 
REM I PESI LI < I ) 

RFM 

GOSUB 6000 
REM 

REM CALCOLO DELLA SOMMA 
REM 

FOR I = 0 TO 1.1 

Y = <B - A) * X<I) / 2 ? Y = Y + (B + A) / 2? REM Y=PUNTI DI CALCOLO 
PER F 

NT = NT + W<I> # FN F<Y)? REM CALCOLO DELL'INTEGRALE 
NFXT I 

NT = NT * <B - A) / 2 
RFTURN 

REM SOTTOPROGRAMMA D'INTEGRA7T0NF 
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4020 RFM FflRMUtrt lìT CHFRYSHFU (9 PMNTT> 

4030 RI-M 

4040 RFM REGGI F D'UCG! 

4050 RFM 1 » DATT NECESSARI ? 

4060 RFM * A«| TMTTF TNFFRTDRF 

4070 RFM * p-l TMTTF SIIPFRIORF 

40RO RFM * F(X)“FUN7I0NE DA INTEGRARE 

4090 RFM ?»RTSUI TATI FORNITI ? 

41.00 RFM * NT-UAI ORF DFU ' INTEGRAI F 

4110 RFM 3. U ART ARTI T NT TI T77ATF * 

41 ?0 RFM A-R.T-NT.Y 

4170 RFM 4 » UFTTORF UTTI I77AT0 ? 

4140 RFM X < B) 

4 I SO RFM 5»FUN7T0NE UT II T77ATA * 

41.60 RFM F ( X ) 

4170 RFM X************************************************ 

41.80 NT --- 0: RFM INIZIAI I '/7A7T0NF REM ' INTEGRALE 
4190 RFM 

4700 RFM TIFFTNI7T0NF REGI T X<I) DFI TFSTO 
4?10 RFM 

4??0 X(0> = 0 ? X ( 1 1 « ♦1679061842JXC2) - *528761.7831 ?X(3 ) =•• »60.1.01.86554 ?X(4 
) = ♦?t15893077? X < 5 > = - X C1 M X < 6 ) = - X<2> ?X<7> = - X'3)?X<8) = - 
X ( 41 
4230 REM 

4240 REM CAI. COI 0 DFI I A SOMMA 

4250 REM 

4260 FOR I = 0 TO 8 

4270 Y = (B - A) * X(I) / 2»Y = Y + (B + A) / 2? REM DEFINITONE DEI PUN¬ 
TI IN CUT CALCOLARE F 

4.280 NT = NT + FN F < Y > I RFM CALCO! 0 DELL ' INTEGRALE 
4290 NEXT I 

4300 NT - NT % (B - A) / 9 
4310 RETURN 


5010 REM SOTTOPROGRAMMA R'INTEGRA7I0NE 

5020 REM CON LIMITE SUPERIORE INFINITO 

5030 REM FORMULA DI GAUSS <1.2 PUNTI) 

5040 RFM 

5050 REM RFGOLF D'USO 

5060 REM 1. ♦ DATI NECESSARI ? 

5070 RFM * A=LIMITI" INFFRIORF 

50B0 REM * F<X)^FUNZIONE DA INTEGRARE 

5090 REM ?» RISULTATI FORNITI » 

51.00 REM * NT=VAI..ORE DELL ' INTEGRAI F 

511.0 REM 3»VARIABILI UTILI77ATE! 

51.20 REM A -1NT ? Y - YT 

5130 REM 4»VETTORE UTILT77AT0? 

51.40 REM XU),U(I) 

5150 RFM 5 ♦ FUN7IQNE UTII. I77ATA » 

5160 REM F < X) 

5170 RFM 6 »SOTTOPROGRAMMA CHIAMATO? 

51.80 REM 6000 

5200 NT = 0? RFM INI7TAlI77A7T0NE DELI 'INTEGRALE 
5210 REM 

5220 RFM CHIAMATA DEI SOTTOPROGRAMMA CHE DEFINISCF 

5230 REM GII X<I) E W<T) (CFR TESTO) 

5240 REM 

5250 GOBI IR 60OO 

5260 RFM 

5270 REM CAI COLO DELLA SOMMA 

5280 REM 

5290 FOR T = 0 TO 1.1. 

5300 Y = <2 / (1. + X < I ) ) ) + A - 1? RFM PUNTI IN CUI CALCOLARE F 
53.1.0 YT = FN F(Y) 

53.20 YT = YT / < < 1. + X(D) A 2)? REM VALORE PROVVISORIO DI UN TERMINE 


DELLA SOMMA 
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CAI f:ni o riF! I 'INTEGRAI f 


53:30 

1=5340 
5350 
1-53 A0 
A000 
A01.0 
6020 
A 0 3 0 
A040 
A 050 
AOAO 
A070 
A080 
A090 
A 1.00 
A.1.10 
A1 .20 

A 1.30 

A 1.40 
A 1.50 
Al AO 
A170 

A180 

A 1.90 


NT =:: NT -»• UH I ) * Y'r: RFH 
NFXT T 
NT = NT # 2 
RFT11RN 

RFM SOTTOPROGRAMMA DT TNT7TAl. I77A7T0NE DET VETTORI 
REM X(I) F U(T) NECESSARI PER I 'TNTF0RA7T0NF 
REM SECONDO IO FORMI.11. A DI GAUSS 1? PUNTI 
RFM 

REM SOI fì BI. T FI. FMFNTT 
REM X < 1 1 ) F W< 1.1 ) 

REM SONO OTTI T77ATT 

RFM ******%******X********X*%X*%M%*X%XX%**%*XX** 

REM 

RFM INIZIAI TZZAZIONF DFGLI X(T) 

RFM 

X<0) “ ♦ 1.252334085 J X( 1. > - , 3A7S31.4909 J X (? > -• *58731.79542 IX <3: 
02A741 ? X ( 4 > ~ ♦ 9041 1 725A3 1X < 5) = *981.5A0A342 

X ( A ) « - X ( 0 ) ? X ( 7 ) ~ - X ( 1. ) ? X ( 8 ) = - X ( 2 ) 1 X ( 9 ) = - X ( 3 ) ! > 

X < 4 ) 1X ( 1.1 > = - X ( 5 ) 

REM 

REM TNT7TAL IZ7A7I0NE DEI UHI) 

REM 

W<0) = ♦2491.470458 *1*1 < 1 ) = *23349253A5? W < ? ) - ♦2031A742A7?W(31 
783285 * (J < 4 ) = ♦ 1 0A9393259 ♦* U < 5 ) = ♦0471.7533A3 

W ( A) “ U ( 0 ) 11*1(71 = U ( 1. ) 1 Ul (8) = U<2) ! W<91 - UJ <3) ? W < 1 0> - Ul(4 1 1 
U < 5 > 

RFTURN 


5 - ESEMPIO PRATICO 


Si voglia calcolare l’integrale tra 0 e 1 della funzione: 
f (x) = 1/(1 + X + X 2 ) 

Il risultato esatto di tale integrale è rc/3 V3~= 0.604599788. 
I vari metodi proposti portano ai seguenti risultati: 


1. 

Simpson (n = 10): 

.604599557 

2. 

Bode: 

.604599787 

3. 

Gauss: 

.604599788 

4. 

Chebyshev: 

.604599734 


L’esempio illustra la risoluzione con il metodo di Gauss. 


RUN 

INTEGRAZIONE NUMERICA♦ 

AUTORE * H♦HAUT 


REGOLE D'uso: 

1♦L'UTENTE DEVE DEFINIRE LA 

FUNZIONE DA INTEGRARE ALLA LINEA 
270 COME indicato: 

270 DEF FN F<X)*l/(1+X+X*X> 


- ♦7A99 
( 1 . 0 ) = 

= ♦1AOO 
Ul ( 11 ) - 
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RF NON F' Gl A ' STATO FATTO 
PRFMFRF RESFT, DEFINIRE I.A 
FIJN7TONF F I ANO TARE TI PROGRAMMA 
FRI TFRF POI UNO PI"I METODI 
RFONFNTT! 

1=RFGO! A DI STMPSON 
?=RFPOI A pj POPE 

3«formui A PI GAUSS 

4=F0RMU! A PT CHEBYSHEU 
5=1 TMTTF SIJPFRIORF INFINITO 
S,DEFINIRE INF INF I LIMITI 
D'TNTFGRAZIONF 

PREMERE UN TASTO PER CONTINUARE 
SCEGLIERE IL TIPO PI CALCOLO 5t=SIMPSON 
?=BODF ? 3«GAUSS? 4=CHFRYSHFU i 5=1. TMTTF SUR 
INF ♦ 

TIPO =3 

LIMITE INFERIORE =0 
LIMITE SUPERIORE =1 


MALORE DELL'INTEGRALE®» 604599788 


tempo d'esecuzione: 1” 

memoria richiesta: 8186 bytes (senza REM : 2526). 
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PROGRAMMA NUMERO 6 


EQUAZIONI DIFFERENZIALI 
DEL PRIMO E SECONDO ORDINE 


Questo programma permette di calcolare il valore assunto da una funzione y(x) in 
un generico punto (oppure di tabulare la funzione stessa) quando questa è definita 
tramite una equazione differenziale del primo o secondo ordine, con le condizioni ini¬ 
ziali in un punto x 0 . Il metodo di risoluzione adottato è quello di Runge-Kutta (quarto 
ordine). 


1 - METODI NUMERICI 

1.1 — Equazione differenziale del primo ordine 

Si voglia risolvere l’equazione: 

( 1 ) y’(x) =-jy_ = f(x , y) 

dx 


sotto la condzione iniziale y(x 0 ) = y 0 , calcolando il valore di y in x = Xf. 

Seguendo il metodo di Runge-Kutta, si divide l'intervallo x f — x 0 in segmenti di 
lunghezza h e si tabula la funzione^ da x 0 a x f , con passo h, utilizzando il seguente 
algoritmo: 

(2) y n +i = y n + 1/8 (k, + 3k 2 + 3k a + k 4 ) + (errore dell’ordine h 5 ) 
con la convenzione: 

y n =y( x n) con x n = x 0 + nh 
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I ki sono dati da: 


(3) k, = h f (x n , y n ) 

k 2 = h f (x n + h/3, y n + k,/3) 
k 3 = h f (x n + 2h/3, y n — k,/3 + k 2 ) 
k 4 == hf (x n + h, y n + k, - k 2 + k 3 ). 


1.2 — Equazione differenziale del secondo ordine 

Come nel caso precedente, la soluzione di: 

(4) y" (x) - — = f (x, y, y') 

dx z 

sotto le condizioni iniziali: 

y(* 0 ) = y 0 e y’( x o) = yó 

è tabulata da x 0 ad x ( con passo h nel modo seguente: 

y n .i - y n + h lyli +1/6 (i, + 1 2 + i 3 )l 

(5) 

y'nH = yn + V 6 Ol + 2I 2 + 2I 3 + U) 

ove l’errore di approssimazione è dell'ordine di h 5 . 

Si ha: 

'i = hf(x n , y n ,y; ) 

(6) l 2 = h f (x n + h/2, y n + h/2y; , y; , + l,/2) 

1 3 = h f (x„ + h/2, y„ + h/2y n + h/4l„ y’ + 1^2) 

1 4 = h f (x n + h, y n + hy„ + h/2l 2 , y„ + l 3 ) 


Riferimenti bibliografici: A2, B1, B2, C3, HI, LI, S2, S3. 


2 - TECNICA DI PROGRAMMAZIONE 

Il programma realizzato permette all’utente di definire le due equazioni differenzia¬ 
li y’ = FI (x, y) e y” = F2(x, y, y’>, di scegliere le condizioni iniziali (x 0 , y 0 ) e (x 0 , y 0 , 
y' 0 ) e di determinare il passo H da utilizzare nonché il valore x, = XF. 
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Per calcolare il valore di y in x ( bisogna scegliere il passo H in modo tale che 
x ( = x 0 + nH (con n intero). 

Per evitare di calcolare le funzioni FI ed F2 con dei sottoprogrammi, si possono 
definire nel modo seguente: 

1) DEF FN FI (X) = f (X, Y) 

il calcolo di C = FI (A, B) può allora essere svolto con le istruzioni: 


Y = B 

C = FN FI(A) 

2) DEF FN F2(X) = f(x, y, z) 

in cui z rappresenta y' e il calcolo di D = F2 (A, B, C) può essere realizzato nel modo 
seguente: 


Y = B 
Z = C 

D = FN F2(A) 

Le risoluzioni delle equazioni differenziali secondo gli algoritmi (2) e (5) sono rea¬ 
lizzate tramite i sottoprogrammi 2000 e 3000. 

Il programma infine permette all'utente di scegliere tra il calcolo dei soli valori 
finali (x f , y ( , yj ) e la stampa della tabella dei valori assunti da x, y, y’ ad ogni passo. 
(Ovviamente quest’ultima richiesta richiederà più tempo per essere esaudita). 
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3 - DIAGRAMMA A BLOCCHI 
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4 - PROGRAMMA 


1 REM EQUAZIONI DIFFERENZIALI 

2 REM DEL PRIMO F SECONDO ORDINE 

3 REM 

4 REM AUTORE♦H♦HAUT 

5 REM 

6 REM 

7 REM DESCRIZIONE♦ 

8 REM II PROGRAMMA PERMETTE DI RISOLVERE IF 

? REM SEGUENTI EQUAZIONI DIFFERENZIALI 

IO REM 1 ♦ Y ' ( X ) : -F < X - Y ) 

1.1. REM 2 * Y ' 7 < X)=F(X ? Y * Y ' ) 

12 REM CON IL METODO DI RUNGE-KUTTA 

1.3 REM 

15 RFM 
1.6 REM 
1.00 REM 

1.10 REM REGOLE D'USO 
1.20 REM 
1.30 HOME 

1.40 PRINT TAB < 7 ) J * EQUAZIONI DIFFERENZIALI* 

1.50 PRINT TAB< 7)? "DEL IMO E 2D0 ORDINE ♦ * 

1-60 PRINT J PRINT T AB ( 20) ? * AUTORE ♦ H ♦ HAUT * 

.170 PRINT 


1.80 PRINT *1.L'EQUAZIONE DIFFERENZIALE DI IMO ORDINE Y'=F1<X,Y> DEV 

F ESSERE DFFINTTA * 

190 PRINT * ALLA LINEA 320 SECONDO II... MODELLO:* 

200 PRINT * DEF FI < X ) =X A 2-Y A 2 ,DOVE F1(X)=Y'* 

210 PRINT *2*L'EQUAZIONE DIFFERENZIALE DI 


2.11 PRINT * SECONDO ORDINE? *t PRINT * Y ' ' ~F2 ( X P Y ? Y " ) * 

212 PRINT * DEVE ESSERE DEFINITA ALLA LINEA* 

220 PRINT ’ 360 SECONDO II... MODELLO:* 

230 PRINT * DEF F2<X ) =X#Z~Y » DOVE F2(X)=Y " 

Z=Y ' 

240 PRINT *3♦INSERIRE POI L'ORDINF DELL'EQUAZIONE* 

250 PRINT * 4 ♦ DEFINIRE I.E CONDIZIONI INIZIAI.!- Il VALORE FTNAI E DI X F 

D II PASSO VOLUTO * 

260 VTAB 22: PRINT "PREMERE UN TASTO PER CONTINUARE *! OFT A* 

270 HOME 


.780 RFM 

290 RFM DEFINIZIONI DELLE EQUAZIONI 

300 REM 

31.0 REM PRIM' ORDINE 

320 DEF FN FKX) = 4*X-2*Y 

330 REM FI(X)-Y' 

340 RFM 

350 REM SECOND'ORDINE 

360 DEF FN F2(X) = ~4*Y-4*7 

370 REM F2(X)-Y'' 

380 REM Z=Y' 

390 REM 

400 REM GESTIONF DFT RISULTATI 

410 RFM 


420 INPUT "ORDINE DELL'EQUAZ♦- *?DE? PRINT : PRINT 

430 ON DE GOTO 470-700: REM RAI. TO A SECONDA DFI I 'ORDTNF 

440 RFM 

450 RFM PRIMO ORDINF 
460 RFM 

470 PRINT * FONDI7IONI INIZIAI TJ * 

480 INPUT * X0=*:X0 

490 INPUT * YO=:*?YO 

500 PRINT : INPUT • r ai nni n n^L PUNTO X”*r A 'F.t PRTNT 

510 PRINT ! PRINT ■ | ' APPROSSIMA;/IONE F' DI H A 5 ! " 

520 INPUT " PASSO H“*?H 
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530 RFM 

540 RFM POSSIBI! TJA' TiT TARMI ARF 
550 RFM 

flAO INPUT "VOI FTF I INA TAPFI I A? " S A$ 

570 TF A$ - *S■ THFN BOTO 950 
580 RFM 

590 RFM CHTAMATA DEL BnTTnpRnRRAMMA 

600 RFM 

AIO ROSI.IR 9000 

A70 RFM 

630 RFM GESTIONE TìFj RTBHI TATI < PRIMO ORDINE* 
A40 RFM 

A50 PRTNT "RIBI.H TATT i ■ 

AAO PRTNT " X = ’ ? v 
A70 PRTNT " Y = " ? YO 
680 PRINT " Y'="?YP 

690 FND 
700 REM 

710 REM SECONDO ORDINE 
720 REM 

730 PRINT "CONDIZIONI INIZIALIJ" 


740 

INPUT ■ 

X0=' 

■ ;xo 

750 

INPUT ’ 

Y0= 1 

1 SYO 

760 

INPUT • 

Y ' 0= 1 

' f 70 

770 

PRINT ; 

INPUT 

■CALCOLO NEL PUNTO X=‘;XF 

780 

PRINT ! 

PRINT 

■L'APPROSSIMAZIONE E' DI H A 5 ! " 

790 

INPUT ■ 

PASSO 

H= * i H 


800 PRINT 

810 INPUT "VOLETE UNA TABELLA?"JA$i REM POSSIBILITÀ' DI TABULARE 
820 IF A$ = "B" THFN GOTO 950 
830 REM 

840 REM CHIAMATA DEL SOTTOPROGRAMMA 

850 RFM 

860 GOSUB 3000 

870 REM 

880 REM GESTIONE DEI RISULTATI (SECONDO ORDINE) 

890 RFM 

900 PRINT "RISULTATI ♦*" 

910 PRINT " X="?X 

920 PRINT " Y = : " ? Y0 

930 PRINT " Y' = "fZO 
940 END 
950 RFM 

960 REM TABULATO 

970 REM 
980 HOME 

990 PRINT " X "? TAB( 8)i" Y "? TAB( 22)?" Y' " 

1000 PRINT "-"J T AB ( 8)i" - "? TAB( 22) ?"-" 

1.01.0 XI = XO 

1.020 N = (XE - XI) / Hi RFM NUMERO DI PUNTI INTERMEDI DA CALCOLARE 
1030 REM 

1.040 REM EVENTUALE CORREZIONE DI N PER ARROTONDAMENTO 

1050 IF INT 'Ni < > N THFN N = N + 1 

1.060 REM 

1070 FOR I = O TO N - 1. 

1080 XO = XI + I * H 
1090 XF = XI + (I + 1) * H 

1.1.00 REM CALCOLO DI UN PUNTO INTERMEDIO 
1.11.0 ON DE GOSUB 2000,3000 
1.1.20 RFM STAMPA DEL TABULATO 
1130 TF DF = 2 THFN YP = ZO 

1140 PRINT XFJ TAB( 8)?Y0J" "i TAB( 22)?YP 

1150 REM PROBFCUZIONF DELLA TABELLA 
1.1.60 NFXT T 
1170 FND 

2000 REM ********************************************* 

2010 REM SOTTOPROGRAMMA PER RISOLVERE L'EQUAZIONE DIFFFRFN7IAl F l 
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?o?o 

2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21.10 
2.1 20 
21.70 
2140 

.21.50 

21.60 

21.70 
2180 
21.90 
2200 
2210 
7770 
2270 
2240 

. 2.750 
7760 
2270 
2280 
2290 
7700 
771.0 
2720 
2770 
2740 
2750 
2760 
7770 
7780 
2790 
2400 
7410 
2420 
7470 
2440 
2450 
2460 
2470 
2480 
7000 
701.0 
7020 
7070 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7.1.20 
7170 
7140 
3150 
3160 

3.1.70 
31.80 
3190 


RFM Y'~F1. ( X ? Y ) 

rfm con T! HFTnnn ni riingf--KUTTA 

RFM 

RFM REGOLE PER ! 'UGO DEI BOTTOPROGRAMMA 
RFM 

RFM 1.PATI NECESSARI? 

RFM * FKX ? '0 OFFTNITA DA FN FI. (X) 

REM SECONDO TI.. MODELLO ? 

REM DEE FN FI(X1~4*X-2*Y 

REM (TI CAI mi 8 M C“F 1 ( A - B ) BI EFFETTUA 

RFM CON Y“B ?C~FN FI(A) ) 

REM * XO=VAI.ORE INIZIALE DI X 

RFM * YO=VAI ORF INIZIALE DI Y 

REM * H-PASSO 

RFM <1. 'INTERVALLO XF-XT DOVF CONTENFRF 

REM UN NUMERO INTERO UT PASSI) 

RFM * XF=VAI ORF FINALE DEI CAI COI 0 

RFM 7 * RISULTATI FORNITI? 

RFM * X=VAI ORE FTNAI F PI X 

RFM * Y0=VALORE DI Y IN X 

RFM * YP-VAI ORE UT Y'TN X 

RFM 3*VARIABILI UTILIZZATE? 

RFM H,K1.K7,K3.K4,X0,X r XFrYO,Y,YD, YP 

REM 4 » FUNZIONE UTILIZZATA? 

RFM FI(X) 

REM ***# ******%'M%****%X%%**********Ì(*%X%*X%*%%*%X 

Y = YO? RFM INIZIAI. IZZAZIONF DI Y 
FOR X = XO TO XF - H / 10 BTFP H 

YD := FN F1(x>? RFM CAI COI 0 DI Y'=F(X r YO) 

RFM CAI COLO UT Kl. 

Kl = H * YD 
RFM CAI.COLO DI K? 

Y = VO + Kl / 3 

K7 = H * FN FI. (X + H / 3> 

RFM CAI COI 0 HI K3 

Y = YO - Kl / 7 + K7 

K3 = H * FN FI(X + ? * H / 3) 

RFM RAI COLO DI K4 

Y = YO + Kl - K2 + K3 
K4 = H * FN FI(X + H) 

REM CALCOLO DI Y(N+1.) (CFR TESTO) 

YO = YO + (Kl + 3 * K2 + 3 # K3 + K4) ./ 8 

Y = YO? REM CALCOLO DFI VAI ORF DI Y 
YP = FN FI(X + H) 

NEXT X 

REM ALL'USCITA DAL CICLO ? X=XF ,YO-YF E YP=Y'F 
RETURN 

REM X*************************************************** 

REM SOTTOPROGRAMMA PER LA RISOLUZIONE DEI !.. ' EQUAZIONE DIFFERENZIALE 


REM Y"=F2<X,Y,Y'> 

REM CON II METODO DI RUNGE-KUTTA 
REM 

REM REGOLE PER L'USO DEL BOTTOPROGRAMMA 
REM 

REM 1. ♦ DATI NECESSARI? 

REM * F2(X,Y » Y') DEFINITA DA FN F2(X> 

REM SECONDO IL MODELLO? 

REM DEF FN F7(X)~X*Z-Y 

REM CON Z-Y' 

REM (IL CALCOLO DI D-F2(A -B-C) SI EFFETTUA CON? 

REM Y=B ?Z-C ? D-FN F2(A) > 

REM * XO-VALORE INIZIALE DI X 

REM * YO=VALORE INIZIALE DI Y 

REM * ZO=VALORE INIZIALE DT Y' 

REM * H=PASSQ 

REM (L'INTERVALLO XF r XI DEVE CONTENERE 

REM UN NUMERO INTERO DI PASSI) 
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3200 REM 
3210 REM 
3220 REM 
3230 REM 
3240 REM 
3250 REM 
3260 REM 
3270 RFM 
3280 REM 


* XF«VAL0RE ETNALF DA CALOOI..ARE 
2♦RISI!! TATI FORNITI i 

* X«VAI ORE ETNA! E UT X 

* YO-VAI ORF DT Y IN V 

* ZO=VALORE IH Y' TN X 

3 • VARIARTI I IITII 177AIE ! 

H,I1 ♦I...2-I 3 . 14 . XO. X ? XE - YO - Y , 70 r 7. 

4 ♦ FUN710NF UTTI 1 7 7ATA ; 

E 2 ( X ) 


3290 REM *#*##**#**#*:#***** ********************* ************* 
3300 FOR X = XO TO XF - H / IO STEP H 
331.0 REM CAI CO! 0 DT ! 1. 

3320 Y = YO 
3330 7. ~ 70 

3340 LI « H * FN F7(Xì 
3350 REM CALCOLO DI 1. 2 
3360 Y “ YO + H * 70 / 2 
3370 7 = 70 + 1 1. / 2 


3380 |? s H # FN F2(X + H / 2) 

3390 REM CALCO!0 DI ! 3 
3400 7 -- 70 + 19 / 9 
3410 Y « Y + H # Il / 4 
3420 13 = H * FN F2(X + H / 2) 

3430 REM CALCO! 0 DT 14 

3440 Y = YO + H * 70 + H * I 2 / 2 

3450 7 - 70 + ! 3 

3460 I 4 = H * FN F2(X +' H) 

3470 REM CALCOLO DEL VAI ORE DI YO 

3480 YO « YO + H * (70 + (LI + 1.2 + !3) / 6) 

3490 RFM CA! CO! 0 DEI. VALORE DT 70 

3500 70 = 70 + <1.1. + 2*17 + 2*13 + 14) / 6 

351.0 NFXT X 

3520 RFM 


3530 REM Al ! * USCITA DAI CIC! O.X=XF-Y0~YF E 70-Y'F 
3540 RFTURN 


5 - ESEMPIO PRATICO 


L’esempio mostra la tabulazione tra 0 e 1 delle funzioni y(x) e y'(x), definite trami¬ 
te l'equazione differenziale del primo ordine y’ = 4x — 2y e soddisfacenti alle condi¬ 
zioni iniziali x = 0 e y = - 2, realizzata con passo .5. 

La soluzione esatta, 

y = 2x — 1 — e -2 *, dà per x = 1 il valore y = .864664716 e il valore y' = 
2.27067056. 

RUN 

EQUAZIONI DIFFERENZIALI 
DEL IMO E ?pn ORDINE, 

AUTOREJH.HAUT 

1. .L'EQUAZIONE DIFFERENZIALE DI IMO 
ORDINE Y'=F1(X,Y) DEVE ESSERE DEFINITA 
ALLA LINEA 320 SECONDO IL MODERI 0! 

DEE F1(X)=X a ?-Y a 2 .DOVE 
FI(X)=Y' 
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2.L'EQUAZIONE DIFFERENZIALE DI 
SECONDO ORDINE * 

Y 7 7 =F2C X, Y y Y 7 7 > 

DEVE ESSERE DEFINITA AMA LINFA 
3*0 SECONDO IL MODELLO? 

DEF F2CX)=X*Z-Y yDOVE 
F2 ( X)=Y 77 
Z=Y 7 

3♦INSERIRE POI L'ORDINE DELL'EQUAZIONE 
4♦DEFINIRE LE CONDIZIONI INIZIALI, IL 
VALORE FINALE DI X ED IL PASSO VOLUTO 
PREMERE UN TASTO PER CONTINUARE 
ORDINE DELL. 7 EQUAZ ♦ = 1 


CONDIZIONI INIZIALI? 
X0=0 
Y0=-2 

CALCOLO NEL PUNTO X=1 


L'APPROSSIMAZIONE E 7 DI H A 5 ! 

PASSO H=*05 
VOLETE UNA TABELLA^S 
X Y Y 7 


♦ OS 
,1 
» 15 



♦ 3 

♦ 35 

♦ 4 

♦ 45 


♦ A 

♦ 65 
*7 

♦ 75 

♦ 8 

♦ 85 
- ? 
.95 
1. 


-1*8048375 

-1 *61.8730? 

-1 *44081.842 

-•1. ♦ 27032029 

-1*10653094 

-♦948811935 

-♦79658561? 

-♦6493292? 

-♦506569991 

-♦367879775 

-♦232871415 

-♦10119453? 

♦027467886 

♦153402723 

♦276869537 

♦39810318? 

♦ 5173161.95 
♦634700842 
*750431124 
*864664472 


3*809675 

3 ♦ 637461.8 

3*48163685 

3*34064058 

3*21306187 

3*09762387 

2*99317124 

2*89865858 

2*81313998 

2*73575955 

2*6-4574283 

2*60238908 

2*54506423 

2♦49319455 

2*44626093 

2*40379362 

2♦36536761 

2*33059832 

2*29913775 

2♦27067106 


tempo d’esecuzione: 4” 

memoria richiesta: 6061 bytes (senza REM : 1762). 
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PROGRAMMA NUMERO 7 


GRAFICO DI UNA FUNZIONE 


Questo programma utilizza le funzioni video-grafiche del sistema APPLE II PLUS 
per rappresentare una funzione definita dall’utente in un intervallo a piacere. Le scale 
sono realizzate in modo da sfruttare al massimo i 270 x 150 punti dello schermo. 


1 - TECNICA DI PROGRAMMAZIONE 


Dopo aver definito la funzione f (x) che si vuole rappresentare e gli estremi dell’In¬ 
tervallo di definizione XI e XF, si utilizza il sottoprogramma 1000 per calcolare il valo¬ 
re assunto dalla funzione stessa in 270 punti compresi tra XI e XF. Tali valori vengono 
memorizzati in un vettore Y (I ) e tra essi si sceglie il valore massimo YF e il valore mi¬ 
nimo Yl. Si sceglie infine la scala delle ordinate in modo da sfruttare in toto i 150 pun¬ 
ti verticali dello schermo. 


La corrispondenza tra i valori X,Y calcolati ed i valori XP, YP che danno le coordi¬ 
nate grafiche è realizzata dalle seguenti formule: 


XP = 270 + (X - XF) 
YP = 150 - (Y - Yl) 


270 

(XF - XI) 
150 

(YF - Yl) 


Il grafico della funzione viene così eseguito aH’interno di un quadrato graduato, 
contenente anche gli assi cartesiani nel caso in cui XI < 0 < XF oppure Yl < 0 < YF. 


Viene inoltre lasciata all'utente la possibilità di utilizzare anche un secondo scher¬ 
mo supplementare. 
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DIAGRAMMA A BLOCCHI 
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3 - PROGRAMMA 


1 RFM 

2 REM 

3 REM 

4 REM 

5 REM 

6 RFM 

7 REM 

8 REM 
? REM 

10 REM 

11 REM 
100 REM 
110 REM 
120 REM 
130 HOME 

140 FRINT TAB( 7)J'GRAFICO DI UNA FUN7I0NE * 

150 PRINT t FRINT TAF( 20)?'AUTORE X H♦HAUT' 

1.60 FRI NT 

170 FRINT “1*11.. PROGRAMMA REALIZZA TI. GRAFICO FU UNA FUNZIONE F(X) IN 

UN QUADRATO FU (270*150) PUNTI * * 

180 FRINT 

190 FRINT ' LE SCALE.GLI ASSI F II PASSO SONO CALCOLATI DAL PROGRA 

MMA * 

200 PRINT 

210 FRINT ■ 2♦ LA FUNZIONE F(X) DEVE ESSERE DEFINITA DALLI..'UTENTE ALLA LI 
NEA 340 SECONDO IL MODFI LO?■ 

220 PRINT ' 340 DEF F<X>=SIN<X>*COS<X>' 

230 PRINT ■ SE NON E' STATO ANCORA FATTO PREMFRE IL TASTO RESET, DEFI 

NIRE LA FUNZIONE E BATTERE RUN* 

240 PRINT 

250 PRINT * 3♦INTRODURRE INFINE I VALORI INIZIALE E FINALE DELI A VARIABI 
LE X CHE DELIMITA- NO I. ' INTERVAI LO DI DEFINIZIONE■ 

260 VTAB 23: PRINT 'PREMERE UN TASTO PER CONTINUARE'? GET A$ 

270 REM 

280 REM ISTRUZIONI DI DIMENSIONAMENTO 

290 REM 

300 DIM Y(270) 

310 REM 

320 REM DEFINIZIONE DELLA FUNZIONE 

330 REM 

340 DEF FN F (X) = (X - 1.) * (X + 1) * (X - 2) * SIN (X) 

350 REM 

360 REM GESTIONE DEI DATI IN INPUT 
370 REM 

380 HOME t INPUT 'X INIZIALE»'?XI 
390 INPUT "X FINAI. E ="?XF 
400 REM 

410 RFM CHIAMATA DEL SOTTOPROGRAMMA 

420 REM 

430 GOSUB 1000 

440 REM 

450 REM GRIGLIA OPZIONALE 
460 RFM 

470 INPUT 'GRIGLIA <S 0 N)'?A$ 

480 VTAB 1 

490 IF A$ =■• 'N' THEN END 
500 REM 

510 REM TRACCIA DELLA GRIGLIA 
520 REM 

530 POR I = 1 TO 9 

540 XP = 27 * i:YP = 159 - 15 * I 

550 HPLOT 0, YP TO 270, YP 

560 HPLOT XP,9 TO XPk,15?- 

570 NEXT I 


GRAFICO DI UNA FUNZIONE E(X) 
AUTORE !H♦HAUT 


DESCRIZIONE 

IL PROGRAMMA PERMETTE DI DISEGNARE IL GRAFICO 
DI UNA FUNZIONE F(X) DEFINITA DALL'UTENTF 
IN UN INTERVALLO A PIACERE 


REGOLE D'USO 






580 
1000 
1010 
1 o?o 

1070 
1.040 
1.050 
10*0 
1070 
1.080 
1090 
1.100 
1 . 1 . 1.0 
1 1.70 
1.1.30 
.1 140 

I. 1.50 
1 1.60 
1 1.70 

II. 80 
1 1 90 
1700 
121.0 
1.220 
1230 
1.240 
1.250 
1.760 
1 770 
1.780 
1290 
1300 
131.0 
1320 
1 330 
1340 
1 7 FIO 
1360 
1370 
1380 
1.390 
1400 
1.41.0 
1470 
1430 
14 40 
1450 
1460 
1.470 
1.480 
.1.490 
1.500 
1.51.0 
1.520 
.1.530 
1.540 
1550 
1.560 
1.570 
1580 
1590 
1.600 
161.0 
1.620 
1630 
1.640 
1.650 


FND 

RFM ******************************************* 

REM SOTTOPROGRAMMA PFR IL GRAFICO DI UNA FUN7I0NF 
RFM 

RFM RFROLF PFR I ' UGO TÌFI. ROTTOPROGRAMMA 
RFM 

RFM 1♦DATI NECESSARI: 

RFM * XI=VAI ORF INIZIALE DI X 

RFM * XF=VAI ORF FTNAI F IH X 

RFM * F(X> =FUN7T0NF UT CUT SI VUOI F I! GRAFICO 

RFM HA XI A XF 

RFM 2♦RISULTATI FORNITI: 

RFM GRAFICO IH F(X) RII UNA GRIGI TA IH 

RFM 270*150 PUNTI 

RFM 3♦UARIABU I UTILIZZATE : 

RFM FX,XF r XI r XL,XP,YF,YT,YI ,YP 

RFM 4 * VFTTORF UTII IZZATO! 

RFM Y < 770) 

REM 5*FUNZI0NF I.ITII TZZATA! 

RFM F(X) 

REM ******************************************* 

XI = (XF - XT) / 770: RFM FATTORF UT RCA| A PFR X 
RFM 

RFM CAI COLO DI Y MARRTMO <YF> F MINIMO (YI) 

RFM * 

YI - 1F381YF = - 1F38: RFM TNT7TAI IZZA' v ''0N r 

FOR I = 0 TO 270 
X = XI + T * XI 
FX = ON F(X) 

Y <I) = FX 

IF FX '> YF THFN YF = FX 
IF FX < YI THFN YT = FX 
NFXT I 

YI (YF - YT) / 150 1 RFM FATTORF' II! SPAI A !'l "F: 

RFM 

RFM TRAOCIA URI QUADRATO GRADUATO 
RFM 

HGR ♦* HCOLOR- 31 RFM INIZIALIZZAZIONF DELLA FUNZIONE GRAFICA 


HPLOT Or 9 TO 0?159 TO 270,159 TO 270,9 TO 0-9 
FOR I = 1 TO 9 

XP = 27 * I1YP = 159 - 15 * I 
HPLOT O-YP.TO 7?YP 
HPLOT 768 r YP TO 270-YP 
HPLOT XP•9 TO XP-Il 
HPLOT XP,1.57 TO XP,159 
NFXT I 
RFM 

RFM VISUALIZZAZIONE DEI LIMITI 
RFM 

VTAB (21): RFM PUNTATORE Al... CAMPO TESTO 
PRINT 'X1DA ■?XI?" a "?XFf CON PASSO*?27 * XI 
PRINT *Y1DA *?YT?* A *?YF?* CON PASSO * ? 15 % * YI 
RFM 

RFM GRAFICO DELLA FUNZIONE 
REM 

HPLOT 0,1.59 - (Y(0> - YI) / YI. 

FOR 1=1 TO 27Ò 
YP = 15? - ( Y ( I ) - YI) / YL. 

HPLOT TO I,YP x 

NFXT I 

RFM 

RFM VISUALIZZAZIONE DELL'ASSE 
RFM 

IF XI * XF :> = 0 THFN GOTO 1700 

XP = 270 - XF / XI... 

HPLOT XP,9 TO XP-1.59 

RFM SUDDIVISIONE DFL GRAFICO 
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1. AAO 

FOR I = 1 TO 9 


1670 

yp = 1.59 - 15 * T 


1680 

HPI.OT XP f YP TO XP + 7, 

YP 

1.690 

NEXT T 


1.700 

REM 


1710 

REM VI SUA!.. T7.7A7 IONE 

DELL / ARRE X 

1.7.70 

RFM 


1730 

IF YT * YF > = 0 THEN 

OPTO 181.0 

1740 

YP = 159 + YT / Yl. 


1750 

HPI.OT 0 r YP TO 770 -YP 


1760 

RFM SUDDIVISI ONF DEI.. 

FAMPO 

1770 

FOR I = 1 TO 9 


1780 

XP = 27 * I 


1790 

HPI..OT XP f YP TO XP r YP -» 


1800 

NEXT I 


1.810 

RETURN 



4 - ESEMPIO PRATICO 


Si è realizzato il grafico della funzione f(x) 
nell'intervallo - 3 < x + 3 


(x 


1) (x + 1) (x - 2) - 


RI IN 

ORAFTFO TìT II Ni 6 » FI.IN7I HNF 

AIITOFF tl-I.MAMT 


:! f TI.. P R 0 o R A M M a p f a ì t 7 7 a t ! p R a p t r 0 n T 
UNA FUN7I0NF F \ X ) IN UN Ri IATI FATO TìT 
< 770*1 SO) PUNTI. 

I F RFAI F.RI T ARRI F TI PARRÒ RONO 
PAI mi A TT HAI pPHRRANIMA 

'•>, | A FI IN 7 T ONF FfVì TÌFUF '"RRFRF DEFINITA 
DAI I I MITFNTF A| I A ! TNFA 74O SFRONDO 
T! MODFI I O! 

340 d f f F ( >' ') - s t n < y ) * r. o s •: x ) 

RF NON F' STATO ANFORA FATTO PRFMFRF 
TI TASTO RF RF T - TÌFFTNÌ.RF I A FUNZIONE 
I- PATTFRF RUN 


3.INTRODURRE INFTNF T UAL ORT TNI71 Al.F F 
FINA! F DI-! I A VARI AB II F X ONF DF' IMITA¬ 
NO ! 'T NTFRUAl IO D T OFFTN171ONF 
PRFMFRF lIN TARTO PFR CONTTNUAPF 
y TNT71 A! F3. 
y FINALE -+3 
Y! DA -3 A 3 FON PARRÒ.A 

Y! DA ~*939SA507A A 14*1969636 FON PARRÒ 
ì. . 01.3AF.2R7 
ORIOLIA < R 0 N > R 
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tempo d’esecuzione: 21” 

memoria richiesta: 4830 bytes (senza REM : 3725). 
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PROGRAMMA NUMERO 8 


RICERCA DEGLI ZERI DI UNA FUNZIONE 


Il metodo utilizzato permette di trovare tutti gli "zeri” reali di una funzione f (x) defi¬ 
nita in un intervallo a,b. 

1 - METODO NUMERICO 

Si utilizza il cosiddetto metodo della "bisezione” che permette di calcolare il punto 
di un intervallo I a,b 1 in cui la funzione ammette uno zero, purché in tale intervallo la 
funzione ammette un unico zero. 

Sotto questa ipotesi valgono le seguenti considerazioni: 

1) se in |x a , Xbl vi è uno zero, allora risulta 
f(Xa) f(Xb) <0 

2) sia allora x c il punto medio di [x a , x b ]: 

- se f(x a ) f(x c ) > 0, si considera il 
semintervallo I x c , x b ] 

- se f(x a ) f(x c ) < 0, si considera invece 
l’intervallo I x a , x c | 


3) si ripetono le operazioni di cui al punto 2 
finché la lunghezza dell'Intervallo ottenu¬ 
to non risulta inferiore della precisione ri¬ 
chiesta. 

Riferimenti bibliografici: A2, C2, C3, C4, HI, L2. 
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2 - TECNICA DI PROGRAMMAZIONE 


Per calcolare tutti gli zeri della funzione f(x) nell’intervallo [A, B], bisogna 
innanzitutto suddividere quest’intervallo in sottointervalli di lunghezza DX, in modo ta¬ 
le che in ciascuno di questi cada al più uno zero. 

Ognuno di questi intervallini (chiamati [ XI, XF ]) viene a sua volta suddiviso in seg¬ 
menti [XA, XB] utilizzando l’algoritmo esposto nel paragrafo precedente, finché 
XB — XA non risulta inferiore alla precisione ER voluta. 

Le soluzioni vengono memorizzate in un vettore RA(I) che deve essere opportuna¬ 
mente dimensionato in base alla funzione prescelta. La variabile CI indica il numero 
di soluzioni trovate IRA(0), RA(1), .... RA(CI - 1)]. 
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4 - PROGRAMMA 


1 REM CALCOLO DEGLI ZERI 

2 REM DI UNA FUNZIONE 

3 REM 

4 REM AUTORE!H.H 

5 REM 

6 REM 

7 REM DESCRIZIONEi 

8 REM IL PROGRAMMA RICERCA CON IL METODO DELLA 

9 REM BISEZIONE, TUTTI Gl I ZERI DI UNA FUNZIONE IN 

10 REM UN INTERVALLO A,B DATO. 

12 REM 

13 REM 
100 REM 

110 REM REGOLE D'USO 

120 REM 
130 HOME 

140 PRINT TABI 11)f’CALCOLO DEGLI ZERI" 

150 PRINT TABI 11),"DI UNA FUNZIONE’ 

160 PRINT : PRINT TABI 20) } ■AUTORESH.HAUT" 

170 PRINT 

180 PRINT ’l.LA FUNZIONE DI CUI SI CERCANO GLI ZE- RI DEVE ESSERE DEFIN 
ITA DALL'UTENTE Al LA LINEA 780 SECONDO IL MODELLO’ 

1.90 PRINT ’ 280 DEF FN F(X)= 

200 PRINT ’ SE NON E' GIÀ' STATO FATTO, PREMERE RFSET, DEFINIRE LA F 

UNZIONE E LANCIARE IL PROGRAMMA’! PRINT 
210 PRINT ’g.INTRODURRE POI L'INTERVALLO A,B IN CUI RI CERCANO LE RADICI 

E IL PASSO SCELTO IN MODO CHE IN OGNI SUDDIVISIONE DI A-B CADA 

Al PIU' UNA RADICE’ 

220 PRINT PRINT *3. INTRODURRE INFINE LA PRECISIONE DESI- DERATA PER I 
I CALCOLO’ 

230 VTAB <23)1 PRINT 'PREMERE UN TASTO PER CONTINUARE’! GET A* 

240 HOME 
250 REM 

260 REM DEFINIZIONE DELLA FUNZIONE 
270 REM 

280 DEF FNE(X) = (X- 10) * <X - 5) * <X + 1) * <X + 3) 

790 REM 

300 REM ISTRUZIONE DI DIMENSIONAMENTO 

310 REM DA MODIFICARE SE SI PREVEDONO PIU' DI 20 RADICI 'il 

330 REM 

340 DIM RA<20) 

350 REM 

360 REM GESTIONE DEI DATI IN INPUT 
370 REM 

380 PRINT "LIMITI DELL'INTERVALLO!’ 

390 INPUT ’ A=’JA 
400 INPUT ’ B=*}B 

410 PRINT ! INPUT ’SUDDIVISIONE DI A,R CON PASSO i’JDX 
420 PRINT ! INPUT 'PRECISIONE DESIDERATA! ’JER 
430 PRINT 
440 REM 

450 REM CHIAMATA DEL SOTTOPROGRAMMA 

460 RFM 

470 GOSI.JB 1000 

480 REM 

490 REM GESTIONE DEI RISULTATI 
500 REM 

510 IE CI = 0 THEN INVERSE ! PRINT ’ NESSUNA RADICE !’! NORMAI. t END 
570 FOR I = 0 TO CI - 1 

530 PRINT ’ RADICE ’ I + U’ = ’JRA(I) 

540 NEXT I 
550 END 
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1000 REM ************************************************** 

1010 REM SOTTOPROGRAMMO PER LA RICERCA DEGLI 7FRI DI UNA FUNZIONE 
1020 REM IN UN INTERVALLO A,B (METODO DELLA BISEZIONE) 

1040 REM 

1050 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
1060 REM 

1070 REM l.DATI NECESSARI! 

1080 REM * F(X)=FUNZIONE DI CUI SI RICERCANO 

1090 REM LE RADICI 

1100 REM * INTERVALLO IN CUI SI RICERCANO 

1110 REM LE RADICI, DEFINITO DA! 

1120 REM A=L TMITF INFERIORE 

1130 REM B=LIMITE SUPERIORE 

1140 REM * DX=VALORE DEI PASSO 

1.150 REM (NON VI PUÒ' ESSERE PIU' DI UNA 

1160 REM RADICE IN OGNI SOTTOINTERVALLO 

1170 REM DI LUNGHEZZA DX) 

1180 REM * ER-PRECISIONE DESIDERATA 

1190 REM 2.RISULTATI FORNITI! 

1200 REM * CI-NUMERO DI RADICI 

1.210 REM * RA(O),RA(1 RA(CI-l) SONO LE 

1220 REM RADICI TROVATE 

1230 REM 3 » VARIABILI UTILIZZATE! 

1240 REM A,B,CI,nX,ER,TE,T2,XA,XB,XC,XI,XF,Yl,Y2 

1250 REM 4.VETTORE UTILIZZATO! 

1.260 REM RA(..> l.A CUI DIMENSIONE DEVE ESSERE 

1270 REM SCELTA IN MODO CHE POSSA CONTENERE 

1280 REM lUTT.r le RADICI ! ! ! 

1290 REM ************************************************** 

1300 CI = 0 

1310 XF = A ! XI = A 

1320 IF FN F(A) = 0 THEN XC = A! GOTO 1490! REM XC=A F' UNA RADICE 
1330 IF XI > = B THFN RETURN ! REM LA RICERCA E' TERMINATA 
1340 XI = XF! REM DEFINIZIONE DELI. 'INTERVALLO 

1350 XF = XF + DX! RFM DI LUNGHEZZA DX 

1360 XA = XI1XB = XF! REM PRIMO SEGMENTO NELL'INTERVALLO XI,XF 
1370 Y1 = FN F(XI) 

1380 Y2 = FN F(XF> 

1390 IF Y2 = 0 THEN XC = XF ! GOTO 1490! REM XOXF E' UNA RADICE 
1400 IF Y1 * Y2 > = 0 THEN GOTO 1330! REM CONTROLLO SUI. l. A PRECISIONE 

1410 XC = (XA + XB) / 2! REM PUNTO MEDIO DI XA.XB 
1.420 TE = FN E (XC) 

1430 T2 = XB - XC 

1440 IF T2 < = ER THEN GOTO 1490! REM XC E' SOLUZIONE PER LA PRECISIONE 

VOLUTA 

1450 REM RIDEFINIZIONE DI UN NUOVO SEGMENTO XA,XB 
1460 IF FN F(XA) * TE > 0 THEN XA = XC! GOTO 1480 
1470 XB = XC 

1480 GOTO 1410! REM PROSECUZIONE DELLA RICERCA 
1490 REM MEMORIZZAZIONE DELLA SOLUZIONE 
1500 RA(CI) = XC 

1510 CI = CI + li REM AGGIORNAMENTO DEI... CONTATORE DI RADICI 
1520 GOTO ,1330! REM PROSECUZIONE DELLA RICERCA 


5-ESEMPIO PRATICO 


L’esempio illustra la ricerca degli zeri della funzione 


f(x) = (x - 10) (x + 1) (x + 3) 
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nell'Intervallo [- 20, + 20] con passo 1; la precisione richiesta è di 1E — 10 


RIJN 

CAI COLO DEGLI ZERI 
rii UNA FUNZIONE 


AUTORETH.HAUT 

1,LA FUNZIONE DI CUI SI CERCANO OLI ZE¬ 
RI DEVE ESSERE DEFINITA DALL'UTENTE 
ALLA LINEA 280 SECONDO IL MODELLO 
2P0 DEF FN E ( X > == ♦ . . 

SF NON F' OTA' STATO FATTO, PREMERE 
RESET, DEFINIRE LA FUNZIONE E LANCIARE 
IL PROGRAMMA 

2* INTRODURRE. POI ! 'INTERCALI 0 A,B IN CUI 
SI CERCANO LE RADICI F II. PASSO SCELTO 
IN MODO CHE IN OGNI SUDDIVISIONE DI 
A,B CADA AL PIU' UNA RADICE 

3♦INTRODURRE INFINE LA PRECISIONE DESI¬ 
DERATA PER II. CALCOLO 

PREMERE UN TASTO PER CONTINUARE 

LIMITI DELL'INTERVALLO: 

A=~20 

B=+20 

SUDDIVISIONE DI A-B CON PASSO J1_ 


PRECISIONE DESIDERATA? 1E-10 


RADICE I. = —3 
RADICE 2 = -1 
RADICF 3=5 
RADICE A = .1.0 


tempo d’esecuzione: 3” 

memoria richiesta: 3795 (senza REM : 845). 
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PROGRAMMA NUMERO 9 


RISOLUZIONE DELL’EQUAZIONE 
MATRICIALE AX s B 


Il programma permette di costruire la matrice inversa di una matrice A(n, n) e di 
calcolarne il determinante, nonché di risolvere uno o più sistemi lineari in più variabi¬ 
li. Inoltre il programma è concepito in modo da minimizzare l'area di memoria occu¬ 
pata. 


1 - METODO NUMERICO 


Siano A e B due matrici rispettivamente di dimensione (n, n) e (n, m). Volendo 
risolvere l’equazione matriciale AX = B, per economizzare spazio in memoria, si 
dovrà fare in modo, nei corso del programma, di utilizzare lo spazio occupato inizial¬ 
mente dalle matrici A e B per costruire le due matrici A^ 1 (inversa di A) e X = A^B 
(soluzione). In questo modo, alla fine del programma, si troveranno memorizzate A” 1 
al posto di A e X al posto di B. 

Per risolvere questo problema si è utilizzato il metodo di Gauss-Jordan o metodo 
del "cardine”. 

Questo metodo consiste nell’effettuare sulla matrice A una serie di trasformazioni 
A.,, X 2 , A n in modo da ridurre la matrice A alla matrice unità I. Applicando queste 
trasformazioni la matrice A, dopo k—1 passaggi avrà assunto la forma seguente: 
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/1 

0 .. 

0 

a 'lk ■ 

■ a’ 1n \ 

' 0 

1 ... 

0 



0 

0 

. 

1 



0 

0 ... 

0 

a ’kk ■ 

• a 'kn 

• 

. 0 




\ 

. 0 

. 

. 


\° 

0 ... 

0 

a nk 

3nn ( 


La matrice inversa di A si può allora esprimere come: 
A"' 1 = 1-- ^1 I 

e la matrice X come: 


X — À. n À n _i ... X-, B 


Indicato con ajj< k > e bjj< k > gli elementi trasformati delle matrici A e B dopo k 
trasformazioni (k = 0 corrisponde alle matrici nella loro forma originaria) la trasfor¬ 
mazione X k può essere definita tramite le seguenti operazioni: 


1) aii < k > = a iJ < k -i> —a ik < k ~ 1 > a kj < k — 1 >/a kk (k — 1 >) 

per j i = 1, .... k—1, k+1, .... n 

\ j = k . n 


2) b„< k > =b„( k -i)-a ik < k -D b kj ( k ~ 1 >/a kk (k " 1 ) 


per 


3) a,j (k ) =a i j (k ~ 1) 


per 


l i as 1, .... k—1, 

\ j = 1.m 

j i = 1, .... n 

\j = 1.k-1 


—1, k+1.n 


4) a ki < k >=a kj < k -i>/a kk < k -D 

5) b kj (k) =b k j( k " 1 )/a kk (k " 1 i 


per j = k, 
per j = 1, 


n 

rrc 
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Durante ogni passo occorre effettuare la divisione per l'elemento “pivot” a kk . Per 
minimizzare l’errore di arrotondamento si cercherà il più grande (pivot) elemento 
della sottomatrice 



e lo si trasporterà, effettuando le opportune permutazioni tra le righe e le colonne del¬ 
la matrice A nella k-esima posizione sulla diagonale principale. 

Alla fine del calcolo occorrerà riordinare la matrice ottenuta tenendo conto di que¬ 
ste trasformazioni. 

Riferimenti bibliografici: B1, CI, C2, C4, DI, J1, LI, L2, SI, S2, S3. 


2 - TECNICA DI PROGRAMMAZIONE 


Il calcolo si effettua utilizzando un metodo iterativo in n passi, (k = 1, .... n). 


Poiché si vogliono memorizzare ad ogni passo i risultati intermedi per la costruzio¬ 
ne di A -1 e X nello spazio occupato dalle matrici A e B, l'algoritmo utilizzato risulta di 
una certa complessità. Si consiglia pertanto al lettore di effettuare una prova detta¬ 
gliata del programma utilizzando un esempio molto semplice (per esempio un siste¬ 
ma di tre equazioni in tre incognite). 


Definiamo ora le operazioni che costituiscono il k-esimo passo. Dette ri e Cj le 
righe e le colonne di A e B si ha: 


1) — Ricerca del “pivot”: si ricerca l'elemento a,j (i, j = k, .... n) con valore 
assoluto maggiore. Tale elemento avverrà memorizzato in PV. 

- Calcolo relativo al determinante: DET = DET * s * PV, ove S è l'indice relativo 
alle permutazioni e viene calcolato nel modo seguente: 


S = S r *s c 


ove 


S r = j 1 se i k = k 
\-1 se i k ^ k 

S c = f 1 se j k = k 
1-1 se j k ^ k 
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— Memorizzazione di i k e j k in due vettori PL e PC 
PL(K)=i k PC(K) = j k 

2) Posizionamento del pivot nella matrice (in posizione k,k): 

a) scambio di righe in A e B r k <-> n k 

b) scambio delle colonne in A c k <-* c jk 

3) Memorizzazione della colonna k-esima di A in un vettore CS: 

CS(I) =a ik (i = 1,.... k - 1, k + 1.n) 

CS(K) = 0 

4) Modifica della colonna k-esima di A tramite la trasformazione a ik = 5 ik 
( 5 ik = 1 se i = k; 5 ik =0sei ^ k) 

5) Trasformazione della riga k-esima di A e di B mediante la divisione per PV 

6) Modifica delle restanti righe di A e B mediante la trasformazione: 

r, <-> rj - CS(J) r k (j = 1.k - 1, k + 1,n). 

Alla fine dell’ultimo passaggio (k = n) bisogna riordinare le matrici A e B tenendo 
conto delle permutazioni effettuate tra le righe e le colonne (vedi punto 2). Per otte¬ 
nere ciò si può operare nel modo seguente: 

7) Scambio ordinato delle righe di A e B 

r n <-> r pc ( N ) 

r n _i <-> r PC (N — 1) 


r, <-> r PC (1) 

8) Scambio ordinato delle colonne di A: 

C n <-* C PL(N) 

Cn-1 *-> Cpl(n-I) 


C 


1 


C PL(1) 
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Memorizzazione della 
posizione del K-esimo pivot 
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punto 5 dellalgoritmo 


punto 6 dell'algoritmo 


punto 6 dell’algoritmo 


fine del K-esimo passo 


rimane da riordinare 
la matrice 









? 


Scambio delle righe di AA e BB 
(punto 7 dell'algoritmo) 


1= N4 


IK = PCCI) 


IK ; :X 


Scambio iva le 
righe -il 4 , 

-€pc(r)AM 


Lo scambio non è necessario 
se I = PC(I) 


Ma: ■.-4) 


Scambiala le 

jfò&SB 


X •• \<f> 


r-x-4 
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Scambio delle colonne 
- di AA 

(Punto 8 dell'algoritmo) 


Lo scambio non è necessario 
' se J = PL(J) 
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4 - PROGRAMMA 


1 REM RISOLUZIONE DELI 'EQUAZIONE 

2 REM MATRICIALE AX = B. 

3 REM 

4 REM AUTORE1H.HAUT 

5 REM 

6 REM 

7 REM DESCRIZIONE! 

8 REM IL PROGRAMMA PERMETTE DI RISOLVERE L'EQUAZIONE AX=B 

9 REM DOVE A E' UNA MATRICE (N,N> 

1.0 REM EBE' UNA MATRICE <N,M> 

11 REM IL PROGRAMMA CALCOLA 

12 REM - LA MATRICF SOLUZIONE X 

13 REM - L'INVERSA DI A 

14 REM - IL DETERMINANTE DI A 

15 REM SE M=0,SI CALCOLA SOLO LA MATRICE INVERSA E 

16 REM IL DETERMINANTE DI A 

17 REM 

19 REM 

20 REM 
100 REM 

110 REM REGOLE D'USO 
120 REM 
130 HOME 

1 40 PRINT TAB ( 8) "RISOLUZIONE DELL 'EQUAZIONE * 

150 PRINT TABI 11)f 1 MATRICIALE AX = B" 

160 PRINT ! PRINT TABI 20)f'AUTORE H.HAUT" 

170 PRINT 


180 PRINT M.IL PROGRAMMA RISOLVE L'EQUAZIONE AX=R OVE" 

190 PRINT ■ A = MATRICE <N r N>" 

200 PRINT 1 B = MATRICE <N,M> E CALCOLA! 

LA MATRICE SOLUZIONE X L'INVE 

RSA E IL DETERMINANTE DI A" 

210 PRINT * SE M=0,SI CALCOLA SOLO LA MATRICE INVERSA ED IL DETERM 

INANTE DI A 1 
220 PRINT 

230 PRINT '2.INSERIRE POI I VALORI DI N E M" 

240 PRINT 

250 PRINT '3,IN SEGUITO INTRODURRE UNA DOPO L'ALTRA LE COLONNE D 

ELLE MATRICI A E B" 


260 VTAB (23)! PRINT "PREMERE UN TASTO PER CONTINUARE"! SET A* 
270 HOME 

280 REM 

290 REM GESTIONE DEI DATI IN INPUT 

300 REM 

310 PRINT "DIMENSIONE DELLE MATRICI A(N,N) E B<N r M>" 

320 INPUT " N="!N 

330 INPUT " M="!M 

340 NI = N - 1 !M1 = M - 1 
350 REM 

360 REM ISTRUZIONI DI DIMENSIONAMENTO 

370 REM 

380 DIM AA(N1.N1),PC(N1),PL(N1),CS(N1> 

390 IF M = 0 THEN GOTO 410 
400 DIM BB(NI f MI> 

410 REM 

420 REM ACQUISIZIONE NUOVI DATI 

430 REM 

440 REM 

450 REM INSERIMENTO BEILA MATRICE A 

460 RFM 

470 PRINT 

480 FOR I = 0 TO NI 


107 





490 

5=100 

sto 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 


PRINT "COLONNA "21 + 1.2" .01 A 2" 

FOR J = 0 TO NI 

HTAB (5)2 INPUT AA(J-I) 

NFXT J 
PRINT 
NFXT I 
RFM 

RFM EVENTUALF INSERIMENTO DELLA MATRICE B 
REM 

TF M = 0 THEN ROTO 670 
HOME 

FOR I = 0 TO MI 

PRINT "COI ONNA "21 T 1.2" OT B 2" 

FOR J = 0 TO NI 

HTAB (5)2 INPUT BR(J,I) 

NFXT ,J 
PRINT 
NFXT I 
REM 

REM CHIAMATA DEI SOTTOPROORAMMA 
RFM 

60SUB 2000 

REM 

RFM GESTIONE DEI RISULTATI 
REM 

CALI. - 198 2 REM SEGNALE SONORO 
RFM 

REM STAMPA DELLA MATRICE INVERSA DI A 
REM 

FOR I = 0 TO NI 
HOME 

PRINT "COLONNA "JI + 1?" DELL'INVERSA DI AJ" 

FOR J = 0 TO NI 

HTAB (5)2 PRINT AA(J,I) 

NEXT J 
PRINT 


850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

.1060 

1070 

2000 

2010 

2070 

2030 

2040 

2050 

2060 

2070 


PRINT "PREMERE RETURN PER CONTINUARE" 

GET A$ 

IF ASC (A$> * 13 THEN GOTO 890 
GOTO 860 
NEXT I 
REM 

REM STAMPA DELLA MATRICE X SE M>0 
REM 

FOR I = 0 TO MI 

IF M = 0 THEN GOTO 1050 

HOME 

PRINT "COLONNA "21 + !?■ DELLA MATRICE SOLUZIONE X" 

FOR J = 0 TO NI 

HTAB (5)2 PRINT BB(J ? I) 

NEXT J 

PRINT 2 PRINT "PREMERE RETURN PER CONTINUARE" 

GET A$ 

IF ASC (A$) = 1.3 THEN GOTO 1040 
GOTO 1010 
NEXT I 

PRINT 2 PRINT 2 PRINT 

PRINT "IL DETERMINANTE DI A= "2DET 

END 

REM SOTTOPROGRAMMA D'INVERSIONE DI MATRICE F DI 
REM RISOLUZIONE DELL'EQUAZIONE MATRICIALE AA X = BB 
REM 
REM 

REM REGOLE PER L'USO DEI SOTTOPROGRAMMA 
REM 

REM 1♦DEFINIZIONI 2 
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708 0 
9090 
9 100 

r> 11 o 

21.70 
7130 
71 40 
71.50 
71.60 

71.70 
7180 
21.90 
7700 
271.0 
2220 
2230 
2240 
7750 
7760 
2770 
2280 
2290 
2300 
7310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2470 
7430 
7440 
2450 
2470 
7480 
7490 

7500 

2510 

2570 

2530 


REM NEl. l. 'FQUA7 T ONF AA X ~ DB, 

RFM AA=MATRICE N RIGHE,N COI ONNF 

RFM BB-MATRICF N RIGHE , M COI ONNF 

REM 7 * DATI NECESSARI? 

RFM * N=DTMFNSTONF DI AA 

RFM * M=NUMERO DI COLONNE TìT BB 

RFM * AA MFM0RI77ATA IN AA<I,J) ( I, J=0,1., , * ♦ ,N-l ) 

RFM * BB MEMORIZZATA IN BB(I,l) (1=0,1,4♦♦-N-t) 

RFM ( 1-0,1,,»,,M-1) 

RFM SE M=0 . BB NON BEVE ESSERE DEFINITA ? 

REM IN QUESTO CASO SI CAI. COI. A BOLO 

REM L'INVERSA DI A E IL SUO DETERMINANTE 

REM 3 * RISULTATI FORNITI♦ 

RFM * L'INVERSA DI AA SI TROVA IN AA(I,J) 

REM (I, J-0,1., » ♦ ♦ ,N-1 ) 

REM * IL DETERMINANTE DI AA-DET 

REM * SE-M F' DIVERSO DA ZERO,LA MATRICF 

REM SOLUZIONE X SI TROVA IN BB(I,.J) 

RFM (1=0,1. ,♦♦♦ ,N-1 ) 

REM <,1=0,1- , * ♦ ,M-1 ) 

RFM 4 ♦ VARIASTI T UTILIZZATE? 

RFM DET , I, IK, J, JK, K . N - N1, M , M1., PAV ? PV, TT 

REM 5* VETTORI F MATRICI UTII..I77ATI ? 

REM CS(N-1 ) ? PC < N-l ) - PI ( N-1. ) 

REM A A < N-1, N-1 ) , BB ( N-1. , M-1. ) 

REM SE M-0.BB NON VIENE UTILIZZATA 

REM INIZIA! IZ7A7I0NE PER I A RICERCA 
NI = N - .1. ?M1. - M - 1. 

DET « 1J RFM INIZIALIZZAZIONE DEL DETERMINANTE 
REM K=INDICE DEI. PASSAGGIO EFFETTUATO 
POR K = 0 TO NI 
REM 

REM RICERCA DEL PIVOT 
REM 

PV = AA < K,K > 

IK = K? JK = K 
PAV = ABB (PV) 

FOR I = K TO NI. 

FOR J “ K TO NI 

IF ABB (AA( !,.))> PAV THEN PV == AA(I,J)?PAV = ABB (PV) ? IK - I : JK = 

.1 

NEXT J 
NEXT I 

REM RICERCA ULTIMATA, IL PIVOT E' PV NELLA POSIZIONE T = IK?J=JK 
PC<K) = JKiPL(K) = IKt RFM MFM0RI77AZT0NF DELLA P0S.I7T0NF DEL PIVOT 


7540 

REM 


2550 

REM 

CALCOLO DEL DETERMINANTE 

2560 

RFM 


2570 

IF TK 

> K THEN DET = - DET 

2580 

IF JK 

> K THFN DET = - DFT 


2590 DET = DET * PV 
2600 REM 

2610 REM SE II DETERMINANTE F' UGUALE A ZERO LA MATRICE NON E'INVERTIBI¬ 
LE 

2620 REM INVIO DI UN MESSAGGIO DI ERRORE 
2630 REM 

2640 TE DPT = 0 THEN HOME ? CAI I ~ 1981 PRTNT *T| DETERMINANTE E / NIM I O 
! NFSSUNA SOLI. 17TONF " J FND 
7650 RFM 

2660 REM POSIZIONAMENTO DEL. PIVOT IN K,K 
2670 REM 

2680 IF !K * K THEN GOTO 2870? REM IL PIVOT E' GIÀ' BULLA GIUSTA RIGA 


2690 REM 

2700 REM SCAMBIO DELLE RIGHE TK F K DI AA 
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271.0 REM 

2720 FOR I = 0 TP NI 
2730 TT = AA(IK'rl) 

2740 AA(IK,I) = AA(K ? I> 

2750 A A(K-1) = T T 
2760 NEXT T 
2770 REM 

2780 REM SCAMBIO DELI E RTPHE IK E K DI BB 
2790 REM 

2800 IE MI. = - 1 THEN ROTO 2870 

281.0 FOR I = 0 TO MI 
2820 TT = BB<IK,I> 

2830 BBCCK f I) = BB<K,I> 

2840 BB<K,I> = TT 
2850 NEXT I 
2860 REM 

2870 IF JK = K THEN POTO 3030 i REM IL PIVOT E' PIA' SULLA PIUSTA COLON¬ 
NA 

2880 REM 

2890 REM SCAMBIO PELLF COLONNE JK E K DI AA 
2900 REM 

2910 FOR I = 0 TO NI. 

2920 TT = AA(IfJK) 

2930 AA(T-JK) = AA(T-K) 

2940 A A <Ir K) = TT 
2950 NEXT I 
2960 REM 

2970 REM IL PIVOT F' POSIZIONATO TN K?K 
2980 REM 
2990 RFM 

3000 REM MEMORIZZAZIONE DELI A COLONNA K DI AA NEL VETTORE CS 
3010 REM E AZZERAMENTO DELLA STESSA 
3020 REM 

3030 FOR I = 0 TO NI 
3040 CS(I) = AA(I-K) 

3050 A A(I -K > = 0 
3060 NEXT I 
3070 RFM 

3080 CS < K > = 0♦AA < K y K) = 1 
3090 REM 
3100 REM 

31.10 REM MODIFICA DELLA RIPA K DI AA 
31.20 REM 

31.30 FOR I = 0 TO NI 
3140 A A < K f I ) = AA ( K f I ) / F'V 
3150 NEXT I 
3160 REM 

31.70 RFM MODIFICA DELLA RIPA K DI BB TRANNE CHE SE M=0 
3.1.80 REM 

31.90 IE MI = - 1 THEN POTO 3260 

3200 FOR I = 0 TO MI 

3210 BB CK-1> = BB(K fI) / PV 

3220 NEXT I 

3230 REM 

3240 REM MODIFICA DELLE ALTRE RIPHE DI AA 
3250 REM 

3260 FOR I = 0 TO NI. 

3270 IF ,1 = K THEN POTO 3440J REM NON SI MODIFICA LA RIPA K 
3280 REM 

3290 REM MODIFICA DELLA RIPA J DI AA 
3300 REM 

3310 FOR I = 0 TO NI. 

3320 AA< J - T > = A A < J r I > “ CS( J) 2K AA (K? I ) 

3330 NEXT I 
3340 REM 

3350 REM MODIFICA DELLA RIPA J DI BB 
3360 REM 
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3370 IF MI = - 1 THEN ROTO 3440 

3380 FOR I = 0 TO MI 


3390 

BB<J, 

I) = BB<J,I> - CS<J> * BB( K ? I> 

3400 

NFXT 

I 

3410 

RFM 


3470 

rem 

! A PICA 1 E•' MODIF ICATA 

3430 

RFM 


3440 

NFXT 

. 1 

3430 

RI-M 


34*0 

RFM 

F r Nr“ DF| PARRÒ K 

3470 

RFM 


3400 

NFXT 

K 

3490 

RFM 


3300 

RFM 

1 A MATRICE E' TNUFRTTTA 

331 0 

RFM 


3370 

RFM 

RTORDINAMENTO DEI 1 A MATRICE 

.3330 

RFM 


3S40 

RFM 


3330 

RFM 

SCAMBIO DEI. LE RIGHE 

33*0 

REM 


3370 

FOR 

T = NI TO 0 STEP - 1 

3300 

TK a 

PC(I) 


3390 TF TK « I THEN ROTO 3800 
3*00 REM 

3*10 REM SCAMBIO DEI ! F RI OHE T F PC(T) DT AA 
3*30 REM 

3*30 FOR J = o TO NI. 

3*40 TT = AA ( I ? I> 

3* f'O AA < I - J> = AA(TK.-.l) 

3**0 A A(T K r H = TT 
3*70 NFXT ,1 
3*00 RFM 

3*90 REM SCAMBIO BELI E RT6HF I F PC<I> p! BB 
3700 RFM 

3710 IF MI. = - 1. THEN ROTO 3000 

3770 FOR J « 0 TO MI 

3730 TT - BBfI,,n 

3740 pB < I .. I ) = RB''TK-I1 

3700 BB ( TK - ,1 ) = TT 

37*0 NFXT I 

3770 REM 

3780 RFM CAMBIO BELI. A RTRA RUCOESSTUA 
3790 REM 
3800 NFXT I 
3810 REM 

3820 REM SCAMBIO TRA LE COLONNE DI AA 
3830 RFM 

3040 FOR I - NI TO O STEP - 1 
3030 ,IK = PI. (.1) 

30A0 TF .IK = .1 THEN ROTO 39*0! RFM SCAMBIO NON NECESSARIO 
3870 REM 

3000 REM SCAMBIO DELI F COI OMNF ,1 F pi.. <J) DI AA 
3890 REM 

3900 FOR T a 0 TO NI. 

3910 TT « AA(Ir J> 

3920 AAdy.n = AAd.JK) 

3930 AA<T f JK) = TT 
3940 NFXT T 

3930 REM CAMBIO PEL LA CO! ONNA OFRIIENTF 
39*0 NFXT .1 
3970 REM 

3900 RFM RIORDINAMENTO CONCI USO 
3990 REM 
4000 RETURN 
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5 - ESEMPIO PRATICO 


Si voglia risolvere l’equazione matriciale AX = B ove le matrici A (di dimensioni 
6,6; N 6) e B (1 colonna; M -1) sono date da: 



Il programma fornisce la matrice inversa A- 1 , la matrice soluzione X ed il 
determinante di A 


RUN 

RISOLUZIONE DELL'EQUAZIONE 
MATRICIALE AX = B 

AUTORE H.HAUT 

1.IL PROGRAMMA RISOLVE l'EQUAZIONE AX=B 
OVE 

A = MATRICE (N.N) 

B <4 MATRICE <N,M) 

E CALCOLA! 

LA MATRICE SOI. (JZIONE X 
L'INVERSA E IL DETERMINANTE DI A 
SE M = O.ST CAI COI. A SOI 0 IA MATRICE 
INVERSA ED II... DETERMINANTE DI A 

? >INSFRIRF POI I VALORI DI N E M 

3. IN SEGUITO INTRODURRE UNA DOPO 

I 'ALTRA I F COI ONNF DELLE MATRICI A F B 

PREMFRE UN TASTO PER CONTINUARE 
DIMENSIONE DELLE MATRICI A(N r N) F P<N,M) 

N=* 

M= 1 

COLONNA 1. DI A ! 

? 1 . 

1 

^-1. 

? 1 . 

COLONNA ? DI A ? 

'PO 

?1 

?-1 

*?! 

?-l 
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colonna 3 dt a : 

?o 

TO 

?1 

T-t 

?1. 

COLONNA 4 UT A ! 
?0 
*?0 
TO 
?1 

?- 1 . 

COLONNA fi DI A 1 
?0 

?0 

?o 

?1 

?t 

COLONNA UH A ! 
? 1 . 

?- 1 . 

?-l 

*?1 

COLONNA 1 ni B : 
* 1 . 

?0 

VO 

?1 


COLONNA 1 DELL'INVERSA DI At 

0 

0 

0 

0 


PREMERE RETURN PER CONTINUARE 
COLONNA 2 DELL'INVERSA DI A! 


0 

0 

0 


PREMERE RETURN PER CONTINUARE 
COLONNA 3 DELL'INVERSA DI A 5 
■ -*125 


0 

0 

♦ 1.2 fi 
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PREMFRF RFTURN PFR CONTINUARE 
COLONNA 4 DELI.. 'INVERSA DI AJ 
*0625 
- ♦ 1.25 


0 

- ♦ 0625 

PRFMFRF RFTURN PFR CONTINUARF 
COLONNA fi DELI.. 7 INVERSA DI Ai 

- ♦ 031.25 
♦ 0625 

- ♦ 1.25 


♦ 031.25 

PRFMFRF RFTURN PFR CONTINUARE 
COLONNA 6 DEM...'INVERSA DI A i 
♦03125 

-.0625 
, .1.25 


-♦03.1.25 

PRFMFRF RFTURN PFR CONTINUARE 

COI. ONNA 1. DELLA MATRICE SOLUZIONE X 

♦ 34375 

♦ 31.25 

♦ 375 


♦ 65625 


PRFMFRF RFTURN PFR CONTINUARE 


IL DETERMINANTE DI A= -32 


tempo d’esecuzione: 9” 

memoria richiesta: 7249 bytes (senza REM : 2484). 
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PROGRAMMA NUMERO 10 


AUTOVALORI ED AUTOVETTORI 
DI UNA MATRICE REALE SIMMETRICA 


Questo programma realizza la “diagonalizzazione" di una matrice reale simmetri¬ 
ca con il metodo iterativo di Jacobi. 

Il calcolo viene arrestato o quando si è raggiunta la precisione richiesta o quando 
si è raggiunto il numero massimo di iterazioni (tale numero viene definito dail'utente 
all'inizio del programma). 


1 - METODO NUMERICO 


Sia A = (a,;) la matrice reale simmetrica di ordine n da diagonalizzare. È noto che 
una tale matrice ammette degli autovalori e degli autovettori reali e che esiste una 
matrice ortogonale U che la diagonalizza, vale a dire che (posto U T uguale alla 
matrice trasposta di U) soddisfa alla seguente condizione: 



I valori p( rappresentano gli autovalori di A mentre gli autovettori corrispondenti 
sono dati dalle colonne della matrice U. 
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Dato che una trasformazione ortogonale conserva la norma della matrice (la nor¬ 
ma è la somma dei quadrati di tutti gli elementi) si dovrà avere, dopo la diagonalizza- 
zione: 


Il principio su cui si basa il metodo Jacobi consiste nel considerare U come pro¬ 
dotto di rotazioni elementari. 

Esprimendo la trasformazione U nella forma: 

U = U.U,U,. 

si effettuano le trasformazioni Ui 

A’ =.ut ut; llj All, U 2 U 3 . 


finché la somma dei quadrati degli elementi diagonali di A' non approssima, con la 
precisione voluta, la norma di A. 

Ricordiamo che una rotazione elementare U r si rappresenta nel modo seguente: 


/’ 



con c = cos( 0 ) e s = sin( 0 ) 
La trasformazione 


A’ = UW> T AUdi) 


opera sugli elementi di A le seguenti variazioni: 


(1) a’ ik = c a ik + s a jk (k/i,j) 

(2) a', k = c a ik - s a ik (k^ i,j) 

a’w = a’ ik (k^ i,j) 

a’ k j = a’ jk (k^i.j) 
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(3) a’,, = c 2 a„ + 2sc a„ + s 2 ajj 

(4) a'jj ~ s 2 a n - 2sc a» + c 2 a,, 

(5) a’,, = a'jj = (c 2 - s 2 ) ajj + cs (a n - an) 

Gli altri elementi rimangono inalterati. 

La somma dei quadrati degli elementi posti sulla diagonale principale viene modifi¬ 
cata eseguendo la sostituzione: 

a;, 2 + ai, 2 =a jj + ag + 2 a? 

Si sceglie allora l'angolo 6 in modo da rendere nullo a’jj e si procede cosi 
nell’iterazione fino a giungere alla diagonalizzazione di A. 

I valori di cos( d ) e sin( 6 ) possono essere calcolati secondo la seguente legge: 


(6) c = cos( 6 ) = 

(7) s = sin( 6 ) = 

ove: q = I b I 

p = 2baij/l b i 

b = ajj — ajj 

Se b = 0 si ha: 

c = 1/ V 2 ed s = sgn (ajj)/ ^2 


/ 1 

k + q \ 

V 2 

1 p 2 + q 2 / 

P 


2\/p 2 + q 2 cos( 0 ) 


Riferimenti bibliografici: A2, B1, C4, DI, J1, LI, L2, S3. 


2 - TECNICA DI PROGRAMMAZIONE 

L’algoritmo può essere scomposto in quattro passi successivi: 

1 ) Ad ogni iterazione si ricerca, tra gli elementi non disposti sulla diagonale principa¬ 
le, quello avente valore assoluto maggiore. 

2) Si calcolano i parametri della rotazione U (ii) che permette di azzerare tale 
elemento [formule (6) e (7)]. 


117 



3) Si effettua su A la trasformazione U (')> T AU (ij) (cfr. formule da (1) a (5)) e si realizza 
la U con UU ( 'i>. 


4) Si termina l'iterazione quando si è ottenuta la precisione voluta. 

Il programma è concepito in modo da permettere all’utente di definire un estremo 
superiore per il numero di iterazioni. Se dopo un tale numero di iterazioni non si è an¬ 
cora ottenuto il risultato con la precisione voluta, si può richiedere di effettuare un 
numero di iterazioni supplementari. 

Le principali variabili utilizzate nel programma sono: 

A (i j, = matrice reale simmetrica di ordine N 
ER = precisione desiderata 

NA = norma di A 

ND = somma dei quadrati degli elementi della diagonale principale: l'iterazione ha 
termine quando |l - NA/ND| < ER 
IM = numero massimo di iterazioni volute 

U ( i jj = matrice di diagonalizzazione, inizializzata con la matrice unità. 


Alla fine del programma gli autovalori sono dati da: 

Pi = A(i,i) (i = 0,1.N - 1) 

e gli autovettori corrispondenti da: 

Vt = [U(0,i), U(1,i).U(N - 1 ,i) ] (i = 0,1.N - 1) 
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matrice 


L 


N~ H-A 

DIM A 

UW,N) 



Elementi di A: 
essendo A simmetrica 
bastano i primi I elementi 
per la riga I-esima 



_ p 


Precisione richiesta 


.. n 


numero massimo di iterazioni 



7 


Stampa degli autovalori 
e autovettori 


3 
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inizializzazione di U 
e calcolo di ND 


L 


Calcolo di 
" NA = ND 


NA: 
+ 2 


ST 










4 
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I trasformazione degli elementi 
I diagonali o sopra la diagonale 
I della matrice A 

Trasformazioni (1) e (2): 
le tre tappe: 

a) K = 0. NI - 1 se NI f 0 

b) K = NI + 1. NJ - 1 se NJ^t NI + 1 

c) K = NJ + 1, .... N se NJ = N 


■ -^talcolo di 
-jjrasformazione (3) 


— ~ | trasformazione (4) 


— - trasformazione (5) 


- — J PR: precisione ottenuta 


PR::ER 


r 


R6TURK/ 


< 


si procede ad 
una nuova 
Iterazione 










Trasmissione numero iterazioni 
supplementari richieste 






4 - PROGRAMMA 


i 

7 

4 

* 

7 

8 
? 

10 
11 . 
1.7 
1 3 
14 
1.5 
1* 
1.7 
100 
1 . 1.0 
170 
130 
140 
.150 
1 .60 
170 
180 
190 
700 
71.0 
770 


730 

740 

750 

7*0 

770 

780 

790 

300 

3.1.0 

370 

330 

340 

350 

3*0 

370 

380 

390 

400 

410 

470 

430 


RFM CALCOLO DEGLI AUTOUALORI E AUTOUFTTORT 

REM DI UNA MATRICE RFAI F SIMMETRICA 

REM 

REM AUTORF * H * HA! IT 

RFM 

REM 

REM descrizione: 

REM GUFSTO PROGRAMMA UTILIZZA II MFTODO ITFRATIUO 

RFM DI JACODI PER CALCOLARF Gl T AUTOUALORI F GLI 

RFM AUTOUETTORI DI UNA MATRICE REALE,SIMMETRICA 

RFM CON I A PRFCTSIONF UOI IITA F ASSEGNANDO UN 

RFM NUMERO MASSIMO DI TTFRAZIONI 

RFM 

RFM 

REM 

RFM 

REM REGOLE D'USO 

RFM 

HOME 

PRINT TAB( 5) ? •CALCOLO DEGLI AUTOMA! OR! E DFGI..I * 

PRINT TAD( 5)? "AUTOUETTORI DI NA MATRICF ■ 

PRINT TAD( 1.1 )? 'REALE SIMMETRICA * ■ 

PRINT TAD< *)?■(MFTODO ITFRATIUO DI JACODI)": PRINT 
PRINT : PRINT TAD( 34):■AUTORE :H * HAUT’ 

PRINT 

PRINT ■INSERIRE I SEGUENTI DATI:* 

PRINT • 1. ♦L'ORDINE DELLA MATRICE': PRINT 

PRINT ■ 2♦LE COLONNE UNA DOPO I. 'ALTRA (LA MATRICE E' SIMM 

FTRICA E QUINDI SONÒ NECESSARI SOLO I PRIMI TERMINI DI OGNI 

COLONNA)■ 

PRINT 

PRINT ■ 3.LA PRECISIONE UOIUTA' 

PRINT 

PRINT * 4 * 11.. NUMERO MASSIMO DI ITERAZIONI' 

UTAD (22): PRINT 'PRFMERE UN TASTO PER PROSEGUIRE ': GET A$ 

HOME 

REM 

REM GESTIONE DEI DATI IN TNPUT 
RFM 

PRINT : INPUT 'ORDINE DELLA MATRICE-':N 
N * N - 1. 

REM 

REM ISTRUZIONI DI DIMENSIONAMENTO 
RFM 

DIM A(N-N)-U(N,N) 

REM 

REM PROSECUZIONE INSERIMENTO DATI 
REM 

FOR I = 0 TO N 
PRINT : PRINT 

PRINT 'I 'JI + 1. ;■ PRIMI TERMINI DELLA COLONNA '?! + l.t PRINT 'SONO:* 


440 

450 

4*0 

470 

480 

490 

500 

5.10 

520 

530 

540 


FOR .1 == 0 TO I 

HTAD (*): INPUT A(JrI) 

NEXT I 
NFXT I 

PRINT J PRINT : PRINT 

TNPUT 'LA PRFCTSIONF UOI UT A”'J FR 

PRINT : PRINT 

INPUT 'IL.. NUMERO MASSIMO D ' ITERAZIONI 55 " ■ IM 
RFM 

REM CHIAMATA DEI. SOTTOPROGRAMMA 
RFM 
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fì fio gosub 1000 

560 CAI I -- 19fl 
fi 70 RFM 

580 RFM GESTIONF DEI RISUI TATI 
590 RFM 
600 HOME 

AIO FOR T = O TO N 
670 FRINÌ ! FRINT 

630 FRINÌ "AUTOMA! ORE "21 + 12" = " 2 A i' I * I ) ? FRINÌ 
640 FRINT ■AUTOVFTTnRF CORRISPONDENTE?" 

650 FOR J = O Tfì N 

660 HI AB (70ì? FRINT U<J f I) 

670 NFXI l 

680 FRINT ? FRINT "FREMERE RETURN FFR CONTINUARE" 

690 GFT A$ 

700 IF ASC (A$> 13 THEN GOTO 690 

710 NEXT I 
720 END 

1.000 REM %*%%%%X%%**%X**MXXX******X***X*%**%XM%%***X 
1010 REM SOTTOPROGRAMMA PER IL. CALCOLO DEGLI AUTOVAI ORI 
1.020 REM ED AUTO VETTORI DI UNA MATRICE SIMMETRICA REALE 
1030 REM CON TI METODO ITERATIVO DI JACOB! 

1.040 REM 
.1050 REM 

1060 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
1070 RFM 

1080 REM 1 * DATI NECESSARI? 

1090 RFM * LA MATRICE DA DIACONO! IZZARE MEMORIZZATA IN 

1100 REM A < I ? I > ( I. J~0. 1. . * * * . N > 

1110 REM * N CHE DEFINISCE I'ORDINE DELLA MATRICF 

I. 120 REM ( N= : ORDINE - 1. »i> 

II. 30 RFM * ER=PRECIST0NE VOLUTA 

11.40 REM * IM^NUMFRO MASSIMO DI ITERAZIONI 

1.150 REM 2♦ RISULTATI FORNITI? 

.1160 REM * A< I -1 > DA' L'1-FSTMO AUTOMA!.ORF 

I. 170 RFM <1=0-1 rftfr N1 

II. 80 REM * L. ' I-ESIMO AUTOVETTORE E' LA I-ESTMA 

1.190 REM COLONNA DELLA MATRICE U? 

1200 REM (U < 0•T > ? U <1 ? !>- * * * ? U < N ? I)) 

1710 REM I“0 ? 1r » » ♦ - N 

1270 REM 34VARIABII I UTILIZZATE? 

1.230 REM A$ r B - C r ER r I ? IM r J 7 K • N r NA ? ND r NI r N,! 

.1.240 REM F, pR 7 Q , s ? ST r TE 

1.250 RFM 4 ♦ MATRICI UT TI. I ZZATE? 

1.260 REM A ( N - N ) P I.J < M - N ) 

1770 REM (NOTA? N=0RDINE-1 ) 

1790 REM INIZIAI IZZAZIONE 

1300 IT « 0 

131.0 NA = 0 

1320 ND = 0 

1.330 ST = O 

1340 REM 

1350 REM CAI COLO DI ND-NA F INIZIA! IZZAZIONE DELI.A MATRICE U 
1360 RFM 

1370 EOR I = 0 TO N 

1380 U(I P I) = 1 

1390 ND = ND + A(M) A 7 . 

1400 IF I = N THEN GOTO 1470 
1410 FOR J = I + 1 TO N 

1.470 ST = ST + A(I-J) A 7? RFM SOMMA TRANSITORIA DFT QUADRATI DEGLI FI FO¬ 
MENTI ESTFRNI ALIA DIAGONALE 
1.430 U < I - J ) = 0 ? U ( • I r I ) ~ O 
1.440 NFXT I 

1.450 NEXT I 

1460 REM 

1470 NA “ ND + 2 * ST 


125 










14R0 RFM 

1490 REM RTCFRCA TìF-l ! "F! FMFNTO (NON SIILI A PTARONALF) MARRinRF TN MA! ORF 
ASSO! IITO 
1.500 RFM 
1510 SI = O 

1.520 FTiR T = 0 TO N - 1 
1570 FOR - ! = T + 1. TO N 
1540 TF = APS ( A < I - J ) ) 

1.550 TF TF > ST THFN ST = TF ? NT = TJNJ ™ J 
.1.560 NFXT I 
1.570 NFXT I 
1.580 RFM 

1590 RFM I..'ELEMENTO SERRATO F ' TN NT t N,l 
1600 RFM 

1.A10 RFM CAI COLO PFT PARAMFTRT PELI A ROTA7THNF 
1.620 RFM 

1 A 70 R « A(NT y NI) - A (NT-NI) 

1640 TF p ss 0 THFN C ~ 1 / SOR (2)?S = C * SON (A(NT -N.l) ) ! ROTO 1.710? RFM 
RARO PARTIRMI ARF RON P=0 
1650 n = APS (P)?P = ? * A(NT-NT) * SRN <p) 

.1.660 ST = SQR (p * P I- 0 * 0)' 

1.A70 C = SOR ((1. + R / ST) / ?)?S = p / <2 * ST * R) 

1680 RFM 

.1.690 RFM C=COS< ANGOLO PI ROTAZIONE)?S=SIN(ANRO! 0) 

1700 REM 

1.71.0 RFM CALCOLO DELLA MATRTCF U 


1.720 

RFM 


1730 

FOR K 

= 0 TO N 

1740 

ST = IKK, NI) 

1750 

IKK,NI > 

= C * ST -»• S * U(KyN.I) 

1760 

U ( K , N J ) 

= R * IKK. NT) ” S * ST 

1.770 

NEXT K 

1780 

REM 


1.790 

RFM 

TRASFORMA?IONE DELLA MATRICE A 

1.800 

REM 


1810 

REM 


1820 

REM 

TRASFORMAZIONI (DE (?) DEL TESTO 

1830 

REM 

TN TRE TAPPE! 

.1.840 

RFM 

1. ,K=0, a ♦ ♦ yNT — 1. SALVO SF NI=0 

1.850 

REM 

2 ♦K=NI + 1 y . ♦ ♦ y NJ -.1. SALVO SF NJ=N.T + 1 

1.860 

RFM 

3 ♦ K=NJ+1 .♦*♦. N SALVO SF NJ=N 

1870 

RFM 


1.880 

RFM 

PRIMA TAPPA 

1.890 

REM 


1.900 

TF NI 

= 0 THFN ROTO 1.960 

19.1.0 

FOR K 

= 0 TO NI - 1. 


1.920 ST = A(K-NT) 

.1.930 A ( K r NI ) = C * ST + S * A<K,NJ) 
1.940 A(KfNJ) = R * A(KyNJ) - S * ST 
1.950 NFXT K 
1.960 RFM 

1970 RFM SECONDA TAPPA 

1.980 REM 

1.990 TF NJ = (NT + 1.) THFN ROTO 2050 

2000 FOR K = NT + 1 TO NJ - 1 

201.0 ST = A (NT y K) 

2020 A(NTyK) = C * ST + S * A(Ky NJ) 
2030 A(KyNJ) = C * A(K-NJ) - S * ST 
2040 NFXT K 
2050 RFM 

2060 RFM TFR7A TAPPA 

2070 RFM 

2CB0 JF NJ - N THFN ROTO 21.70 
2090 FOR K = NT + 1 TO N 
2100 ST = A(NIyK) 

21.1.0 A(NTyK) ~ R * ST + S * A(NJ-K) 
21.20 A(NJyK) = C # A(NJ-K) - S * ST 
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2130 

NEXT K 


21.40 

REM 


21 

REM CALCOLO DI NP 


21*0 

REM 


2170 

NB = NP + 3 * A(NI-N I) 

a 9 

21.80 

RFM 


2190 

REM TRASFORMAZIONE 

(3) DE! 

2200 

RFM 


9910 

ST - A(NT-NT) 


9990 

A(NT.NT) s C * C * ST 

•4-7*8 

99^0 

RFM 


2240 

REM TRASFORMAZIONE 

( 4) DEL 

92?0 

RFM 


99 AO 

A(NJ-N,l) = C * C * A(N.lfNJ) + 

9970 

RFM 


2280 

REM TRASFORMAZIONE 

<•=;> DEL 

9290 

REM 


9700 

Af NI - N I) a 0 



TESTO 

* r: * At'MT..NT' + S # R # A<NJrN,l' 
TEBTn 

S * R * ST - 2 * S * E * A(NT ? NJ> 
TESTO 


0310 REM 

TT = IT + 1! BEH 
9330 PR = APS (1 - NA 
7340 TF PR < ER THFM 
RIONE VOLUTA 
73S0 TF TT < IM THEN 


AGGIORNAMENTO BEI. NUMERO TU ITERAZIONI 
/ Nili! REM CAI COI 0 DEI LA PRECISIONE 
RETURN ! REM II CAI coi n F' TERMINATO CON I. A PRECI¬ 
SOTI! 15J.0J REM PR0SECU7I0NF DELLA BTAGONAI I77A7T0NE 


■370 REM TI NUMERO DI ITERAZIONI F' Ul TIMATO: OPZIONE PER EFFETTUARNE 
ALTRE RUPPI.EMENTART 


7300 REM 

7390 CAI I. - 190 

14(50 HOME : PRTNT *11, NUMERO HI ITERAZIONI PERMESSE E' 
7410 PRTNT "LA PPFCTSIONF OTTENUTA F' *?PR 
3420 INPUT •VOLETE PROSEGUIRE?*? A* 


RAGGIUNTO 1 


2430 TF A* = ‘N" THFN RETURN 

7440 INPUT •NUMERO DI ITERAZIONI SUpPI EMENTARI = ‘■ IM 

7430 IT = o: RFM RI INIZI Al. IZZA? IONE BEL CONTATORE BT ITERAZIONI 

3460 DOTO 1310! REM PROSECUZIONE BELLA DTA00NA1 IZZAZIONE 


5 - ESEMPIO PRATICO 


L’esempio illustra la ricerca degli autovalori ed autovettori della matrice: 


_ W w — . . . |-- 

/4 

2 2\ 

A = 2 

5 1 

V 

1 6/ 

con una precisione di 1E — 10 ed un massimo di 10 iterazioni. 

RUN 

CALCOLO DEGL 

T AUTO VAI. ORI E DEGLI 


AUTOVFTT0RI PI NA MATRICE 
REALE SIMMETRICA, 
(METODO ITERATIVO BI JACOBI) 


AUTORE !H.HAUT 

INSERIRE I SEGUENTI DATI? 

1. ,1..'ORBINE BELLA MATRICE 

7,1 E COI ANNE UNA DOPO L'ALTRA 

(LA MATRICE E' SIMMETRICA E OUINDI 
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SONO NECESSARI SOLO T PRIMI TERMINI 
nT OGNI 001 ONNiV' 

3 .| A PRECISI ONE UO|. UT* 

4 .IL NUMERO MASSIMO TU ITERAZIONI 
PREMERE UN TASTO PER PRnsEOUTRP 

ORTiTNE IiFLI A MATRTCF ~3 


I 1 PRIMI TERMINI DELLA POI ONNA 1 
SONO: 

? 4 


I 2 PRIMI TERMINI DEL! A COLONNA 2 
SONO ? 

?2 


I 3 PRIMI TERMINI DELLA COLONNA 3 
SONO? 


?1 

?6 


LA PRECISIONE UOL.IJTA~ 1 .E~tO 


I! NUMERO MASSIMO D ' TTERA 7 I 0 NI -10 


AUTOUA! ORE t * 2*1.2592447 

AUTOUETTORF CORRISPONDENTE? 

.R280S3347 

-♦4696545? 

- * 306243926 

PREMERF RETURN PER CONTINUARE 


AUTOUAI ORE 2 = 8 ♦ 38761.806 

AUTOUETTORE CORRISPONDFNTE? 

♦ 53867838 ? 
. 51.4885452 

*666872064 

PRFMERE RETURN PER CONTINUARE 


AUTOUAL.ORE 3 = 4*48645648 

AUTOUETTORF CORRISPONDFNTE? 

~. 1 . 5551.8984 
- ♦ 717 . 1 . 59353 
.679335196 

PREMERE RETURN PER CONTINUARE 


tempo d’esecuzione: 6”8 

memoria richiesta: 5636 bytes (senza REM : 2049) 
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PROGRAMMA NUMERO 11 


CALCOLO DELLE FUNZIONI STATISTICHE 
PER UNA O DUE VARIABILI 


Il programma permette di calcolare il valore delle varie funzioni statistiche sia per 

una variabile x, che assume i valori [x,, x 2 .x n ], sia per una coppia di variabili x,y 

che assumono i valori [ (x lt y,).(x n , y n ) ]. 


1 - DESCRIZIONE DEL PROGRAMMA E DEL METODO 

Le funzioni calcolate dal programma sono definite dalle formule seguenti: 

1. media di x : x = (£Xj)/n 

2. media di y : y = (L y 4 )/n 

3. scarto quadratico medio di x (divisione per n — 1): 



4. scarto quadratico medio di y (divisione per n — 1): 



5. scarto quadratico medio di x (divisione per n): 

s - -nFFF s < 
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6. scarto quadratico medio di y (divisione per n): 



7. scarto quadratico medio di x (divisione per n - 1): 

s*=s x /w 

8. scarto quadratico medio di y (divisione per n — 1): 

Sy = S y /\/n 

9. scarto quadratico medio di x (divisione per n): 

Sj = S x /VfT 

10. scarto quadratico medio di y (divisione per n): 

Sy =s’ y Vn 

11. covarianza di x,y (divisione per n — 1): 

Sxy =- —, -(2x, yi - 1/n EXj Ey^ 

12. covarianza di x,y (divisione per n): 

S xy = 1/n (ZXjyi-1/nExiEyj) 

13. coefficiente di correlazione: 

P = S xy /S x S y 

Man mano che i valori X| ed yi vengono trasmessi al calcolatore, vengono 
memorizzati nei due vettori X(l) e Y(l) di dimensione n. L’algoritmo segue rigoro¬ 
samente le definizioni date e non presenta alcuna difficoltà. 

Riferimenti bibliografici: J2, MI. 
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- DIAGRAMMA A 



introduzione 


I 



una variabile x 
coppia (x, y) 
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3 - PROGRAMMA 


1 REM CALCOLO DELI.F FUNZIONI STATISTICHE 

2 REM PER UNA 0 DUE VARIABILI » 

3 REM 

4 REM AUTORE ? H « HrU.IT 

5 REM 

6 REM 

7 REM descrizione: 

B REM IL PRORRAMMA PERMETTE DI CAI CHI ARF !F FUNZIONI 

? REM STATISTICHE PARTFNDO DA N VALORI DI UNA 

1.0 REM VARIABILE X 0 DI UNA COPPIA DI VARIABILI X-Y 
17 REM 

14 REM 
1.5 REM 
100 REM 

110 REM REGOLE D'USO 

120 REM 
130 HOME 

140 PRINT TAB< 3) J "CAL COLO DELLE FUNZIONI STATISTICHE" 

150 PRINT. TAB< 8)?"PER UNA 0 DUE VARIABILI" 

160 PRINT : PRINT TAB< 20)i"AUTORE♦H♦HAUT"? PRINT : PRINT 
170 PRINT "1 » DEFINIRE IL TIPO DT CALCOLO: 1=FUNZI0NI STATISTI 

CHE PER UN INSIE- MEDI N VALORI X(I) 2=FUNZI0 

NI STATISTICHE PER UN INSIE- ME DI COPPIE (X(I),Y(I)>" 

IRÒ PRINT 

i?0 PRINT "2, INTRODURRE POI IL.. NUMERO DI VALORI 0 DI COPPIE" 

200 PRINT 

.21.0 PRINT "3♦ INTRODURRE SUCCESSIVAMENTE I DATI SPERIMENTALI" 

270 VTAB (21): PRINT "PRFMERE UN TASTO PER PROSEGUIRE ": GET A$ 

230 HOME 
240 REM 

250 REM GESTIONE DEI DATI IN INPUT 
260 REM 

270 INPUT "SCELTA DEL. TIPO DI CALCOLO (10 2) "?NV 
2B0 PRINT : INPUT "NUMERO DI VALORI 0 DI COPPIE? "?N 
790 REM 

300 REM ISTRUZIONI DI DIMENSIONAMENTO 
31.0 REM 

320 IF NV = 2 THEN DIM Y(N) 

330 DIM X(N) 

340 REM 

350 REM INSERIMENTO DATI SPERIMENTALI 
360 REM 
370 HOME 

380 EOR I = 1 TO N 
390 PRINT I ?" ?" 

400 CV = PEEK (37)? VTAB (CV)? HTAB (6)? INPUT "X=‘ÌX(I) 

410 IF NV = 7 THEN HTAB <6)1 INPUT "Y="JY<I) 

470 PRINT 
430 NFXT I 
440 REM 

450 REM CHIAMATA DELLA SUBROUTINE 

460 REM 

470 GOSUB 1000 

480 REM 

490 REM GESTIONE'DEI RISULTATI 
500 REM 
51.0 HOME 

570 PRINT "MFDIA DT X =. *!V1 

530 PRINT 

540 PRINT • (N-1. )SCARTO QUADRATICO DI X~"?A3 
550 PRINT "( N )SCARTO QUADRATICO DI X="?A5 
S60 PRINT 
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Pi 70 

PRTNT 

PiflO 

FRINÌ 

AOO 

TF NU 

610 

PRTNT 

6? 0 

PRTNT 

630 

PRTNT 

640 

PRTNT 

660 

PRTNT 

670 

PRTNT 

680 

PRINT 

A90 

PRINT 

700 

PRINT 

710 

PRTNT 

720 

PRTNT 

730 

FNH 

1000 

REM 

1010 

REM 

1020 

REM 

1030 

REM 

1040 

REM 

1050 

REM 

1060 

REM 

1070 

REM 

1080 

REM 

1090 

REM 

1100 

REM 

1110 

REM 

1 120 

REM 

1130 

REM 

1140 

REM 

1150 

REM 

1160 

REM 

1170 

REM 

1180 

REM 

1190 

REM 

1200 

REM 

1210 

REM 

1220 

REM 

1230 

REM 

1240 

REM 

1250 

REM 

1260 

RFM 

1270 

REM 

1280 

REM 

1290 

REM 

1300 

REM 

1.3.10 

REM 

1.320 

REM 

1.330 

REM 

1340 

REM 

1350 

REM 


•(N-nSCARTO QiiADR, ut v MFTiTn-■ : 03 
■ ( N i scarto quadr, r.r y mfdto ■ :v 5 
= 1 THFN END 
■HFrtTA n t y =.--;y? 

•<N-l)SCARTO QUADRATICO DT Y=*?A4 
•< N 1SCARTO QUADRAI TCO DI Y= - !A6 
•<N-11 SCARTO QUADR, ni Y MEDIO»* }M4 
• < N » SCARTO QUADR. DI Y MFDIOe* >V6 

■fN-1) COVARIANZA HI X.Y = '!V7 
■( N ) COVARIANZA HI X,Y = •}A7 
! FRINT 

■GOFF,PI CORRF! AZIONE = *}V8 

************************************************* 
SUBROUTINE PER IL CALCOLO UFI I F FUNZIONI 
STATISTICHE DI UNA 0 DUE VARIARTI I 

REGOLE PER I 'USO DEL. SOTTO PROGRAMMA 

1. DATI NECESSARI! 

* NM=TIPO DI CALCOLO, 

NV=1!FUNZIONI STATISTICHE PER UNA VARIABILE 
NV=2 .'FUNZIONI STATISTICHE PER DUE VARIABILI 

* N=NUMERO DI DATI SPERIMENTALI 

* SE NV=1, 

X(I> (1 = 1. ,,..,N) SONO GLI N VALORI DELLA 
VARIABILE 

* SE NV=2, 

( X ( I >, Y < I ) > < I = 1, * . *, N > SONO LE N COPPIE 

2. RISULTATI FORNITI! 

* VI=MFDIA DI X 

* V2=MEDIA DI Y 

* V3= < N-.1. ) SCARTO QUADRATICO DI X MEDIO 

* V4= <N-1. ) SCARTO QUADRATICO DI Y MFDIO 

* V5=(N-1. )SCARTO QUADRATICO DI Y MEDIO 

* V6= (N) SCARTO QUADRATICO DI Y MEDIO 

* V7=<N-1) COVARIANZA DI X,Y 

* VB= OOEFFICIFNTF DI CORRELAZIONE 

* A3= < N-1. ) SCARTO QUADRATICO DI X 

* A4=(N-1. > SCARTO QUADRATICO DI Y 

* A5= (NI SCARTO QUADRATICO DI X 

* AA= (NI SCARTO QUADRATICO DI Y 

* A7= <N> COVARIANZA DI X,Y 

3. VARIABILI UTILIZZATE! 

A3, A4, A5, A6 , A7,1. N, NI , NV, NR , VI, V2, V3, V4, 
V5,V6,V7,V8 

4. VETTORI UTILIZZATI! 

X < N > , Y ( N > 


1.360 RFM 

1370 REM INIZIAI... IZZAZIONE: 

1380 REM 

1390 VI = 0!V2 = 0!V3 = 0 

1400 V4 = 0!V5 = 0 

1410 NI = N - liNR = SOR (N) 

14.20 REM 

.1.430 REM SCELTA RELATIVA AL TIPO DI CALCOLO 
1440 REM 

1450 ON NV GOTO 1460,1600 
1460 REM 

1470 REM CALCOLO PER UNA VARIABILE 


1480 REM 

1490 POR T = 1 TO N 
1500 VI = VI + X(I) 

1510 V3 « V3 + X<I> A 2 
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1 520 NI- XT T 

ISSO VA = V! -• Ut * Ut / N 

1540 Ut a Ut / N 

1.550 Al -■ POR (UA / MI.) 

1.560 A fi ~ SQR < UÀ / N) 

1 Fi70 V5 a A5 / NR 
1.530 VI = A3 / NR 
1.590 RETURN 
1.A00 RI-M 

1.61.0 REM CALCOLO PER DUE UARTARTI. T 
1 620 REM 

1 .620 FOR T a 1. TO N 
.1.640 U1 = Ut + X<I> 

1650 V7 a U2 + Y(T) 

1660 VI = VI I- X(I) A 7 

1670 U4 a U4 -»■ Y(I) A 7 

1.630 05 « U5 + X(I> * Y(.!> 

1. A90 NFXT I 

1700 VA = US - UJ * MI. / N 

1.71.0 U7 = U4 -• U2 * U7 / n 

1770 U3 = V5 - (U1 * U?> / M 

1.7-10 Ut - U1 / N 

1740 U7 = U7 / N 

1750 Al = SQR (U6 / NI) 

1760 A4 » SQR ( U7 / NI.) 

1770 A5 - SQR (MA / hi) 

1730 A6 = SQR (U7 / N) 

1.790 U7 = UB / NI 

1300 A7 == un / N 

131.0 Ul = Al / NR 

1.370 U4 = A4 / NR 

1.370 U5 a A5 / NR 

1 R40 U6 = A6 / NR 

1350 TF (Al = O) OR (A4 a o> THFN RFTUR'N ? REM TFST SUI I. 'ESISTENZA DEI 
COFFFICIFNTF DT CORRFI A7THNF 
1360 UR a U8 / (N # A5 # A6) 

.1.370 RETURN 


4 - ESEMPIO PRATICO 


Il programma viene utilizzato per il calcolo delle funzioni statistiche di due variabili 
x ed y che assumono i seguenti valori: 

x = 1, 2, 3, 4, 5 

y = 12, 9, 7, 15, 6 

RUN 

CALCOLO DELLE FUNZIONI STATISTICHE 
PER UNA 0 DUE VARIABILI 

AUTOREJH.HAUT 


1. ♦ DEFINIRE II TIPO DT CALCOLO: 

1-FUNZIONI STATISTICHE PER UN INSIE¬ 
ME DI N VALORI X(T) 

7-FUN7I0NT STATISTICHE PFR UN INSIE¬ 
ME DI COPPIE (X(I>,Y(D) 
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n , TNTRORI IRRE POT TI NUMERO TIT UiM DRT 

n ni coppie 


INTRODURRE SUOCESSTVAMFNTE T DATT 
SPERIMENTAI T 

PREMERE UN TASTO PFR PROSEGUIRE 
SHEI. TA DFI TTPn DT HAI 001.0 (1 0 2) 2 

NUMERO DI VAI ORI n DI COPPIE: 5 
1 . : 

x-i. 

Y-1.2 


X=2 

Y::::9 


X = 3 

Y=7 

4 : 

X-4 
Y - 15 


X=5 

Y 

MEDIA DI X - 7 

< N-1. ) SCARTO QUADRATI CO DJ X-1. ♦ 501. 1.3083 
( N ) SCARTO QUADRATICO DT X*1. ♦ 41421356 

< N-1) SCARTO Oli ADR* DT X MED 10= * 7071.04782 
( N ) SCARTO QUADR. DT X MEDIO-. 632455532 
MEDTA DI Y --^9,8 

( N-1>SCARTO QUADRATICO DI Y=3,701.35111 

< N )SCARTO QUADRATICO DT Y=3♦3105090B 
(N-1'SCARTO QUADR, DT Y MED T 0=1 ,65529454 

< N ) SCARTO QUADR. DT Y MFDT0=1. , 4R054045 


<N-1. ) COVARIANZA DT X-Y = -1,5 
( N 1 COVAR TANTA DT X-Y •= -1,7 


COFF.DT CORREI.AZIONE - ••-♦256307296 


tempo d’esecuzione: 1”4 

memoria richiesta: 3744 bytes (senza REM : 1584) 
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PROGRAMMA NUMERO 12 


CALCOLO DELLE MEDIE E DEI MOMENTI 
DI UNA VARIABILE STOCASTICA 


1 - DESCRIZIONE DEL METODO 

Il programma realizzato permette di calcolare il valore delle medie e dei momenti 
relativi ad una variabile stocastica x che assume i valori x,, x 2> .... x n con frequenza 
f 1 ' ^2’ fri- 


Le medie ed i momenti sono definiti dalle formule: 

— media aritmetica 

A = 1/M £fj Xj (i = 1,2.n) M=£fj 

- media geometrica 

G - (TTx f ,ì) 1/w 

— media armonica 

H = M / (Zf, / Xj) 

- media generalizzata 

M(t) = (1/M Efi (Xi)') 1 /' 
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— momenti 


mi = A 

m2 = 1/M Iti (Xj — A) 2 
m3 = 1/M Ifj (X|-A) 3 
m4 = 1/M Efi (Xj- A) 4 

- coefficiente di appiattimento 

AP = m4/(m2) 2 

— coefficiente di asimmetria 

AS = m3/(m2) 3 / 2 

Si utilizzano le seguenti variabili: 

VI = E fi xì 
V 4 = E f, xf 
V7 = E fj (Xi)« 

V2 = E fi x 2 
V5 = TTx/i 
M = E fi 
V3 = E fj x? 

V6 = E fj/Xj 


e si ottiene: 

A = V1/M 
G = (V5)VM 
H = M/V6 

M(t) = MT=(V7/M)Vt 

m2 = M2 = (V2 - 2 * A * VI + A 2 M)/M 

m3 = M3 = (V3 - 3 * A * V2 + 3 * A 2 V1 - A 3 M)/M 

m4 = M4 = (V4 + 4 * A * V3 + 6 * A 2 V2 - 4 * A 3 V1 + A 4 M)/M 

Nota: Se uno degli Xì è uguale a zero, la media geometrica è nulla e quella armonica 

non è definita. 
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Inizializz azione 


Se un Xi = 0, TE 
la media armonica 
non è definita 




















3 - PROGRAMMA 


1. REM CALCOLO BELLE MEDIE 

2 REM F DFI MOMENTI» 

3 REM 

4 REM AUTORE?H»HAUT 

5 REM 

6 REM 

7 REM DESCRIZIONE? 

8 REM II PROGRAMMA PERMETTE DI CALCOLARE LE MARIE 

? REM MEDIE ED I MOMENTI DI UNA MARIADII E STATISTICA 

IO REM X PRENDENDO I MALORI X < 1. ) , » » » y X < N > CON 

1.1 REM FREQUENZE F < 1. >-»»», F < N ) 

1.2 REM 

1.4 REM 
.1.5 REM 
.1.00 REM 

1.10 REM REGOLE D'USO 
.120 REM 
1.30 HOME 

1.40 PRINT TAB< 3) ? •CALCOLO DELLE MEDIE F DEI MOMENTI" 

1.50 PRINT TAB< A)? "DI UNA MARI ABILE STATISTICA»" 

1.60 PRINT ? PRINT TAB ( 20 ) J " AUTORE ? H» HAUT " 

170 MT AB (?) 

1.80 PRINT " 1 ♦ DEFINIRE II. NUMERO DI MALORI PER LA MARI AB ILE STA 

TISTICA" 

1.90 PRINT 

200 PRINT "2»INTRODURRE SUCCESSIMAMENTE I MALORI E LE RELATIME 

FREQUENZE" 

21.0 MTAB (19) J PRINT "PREMERE UN TASTO PER PROSEGUIRE "? GET A$ 

220 HOME 
230 REM 

240 REM GESTIONE DEI DATI IN INPUT 

250 REM 

260 INPUT "NUMERO DI MALORI- "?N 
270 REM 

280 REM ISTRUZIONI DI DIMENSIONAMENTO 
290 REM 

300 DIM X(N >- E(N > 

310 REM 

320 REM INSERIMENTO DATI 

330 REM 

340 FOR I = 1 TO N 

350 PRINT ? PRINT I 

360 CM = PEEK (37)? MTAB (CM) 

370 HTAB <5>? INPUT "X="?X<I> 

380 HTAB <5>? INPUT !F= , 2E<I) 

390 NEXT I 

400 PRINT ? INPUT "CALCOLO DELLA MEDIA GENERALIZZATA M(T) PER T= "?T 
410 REM 

420 REM CHIAMATA DEL SOTTOPROGRAMMA 

430 REM 

440 GOSUB 1.000 

450 REM 

460 REM GESTIONE DEI RISULTATI 
470 REM 
480 HOME 

490 PRINT "MEDIA ARITMETICA = "?A 
500 PRINT 

510 PRINT "MEDIA GEOMETRICA = "? G J PRINT 

520 IF TE - 1 THEN PRINT "MEDIA ARMONICA NON DFFINITA"» PRINT ? GOTO 540 

570 PRINT "HFDIA ARMONICA - "?H? PRINT 
540 PRINT "MOMENTIì ■ 
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550 

FRINT " 

M1 -• ■ : H i 



560 

PRINT ' 

M2= * ? M2 



570 

PRINT ■ 

M3=V?M3 



580 

PRINT 1 

M4=";M4S PRINT 



590 

PRINT •GOFF. 

D ' APPIATTIMFNTO=■ 

? AP? 

PRINT 

600 

PRINT 'COEF♦ 

D'ASIMMETRIA 

: AS? 

PRINT 

610 

PRINT "MEDIA 

GFNFR ♦ HCITI’U; 

TAB ( 

22 ) 2 

A?0 

ENTI 





1.000 RFM ****** *********************************************** 
1010 RFM SOTTO PROGRAMMO PFR TI CAI COI 0 DFI I F MFDTF F DFT MOMENTI 
1070 REM DI UNA CARIARII F STATISTICA V 
1.030 REM 

1040 RFM RFOOLF PFR I ' USO DFI SOTTOPROORAMMA 
1050. RFM 

1060 RFM 1 * DATI NECESSARI? 

I. 070 RFM * N=NUMERO DI MALORI PELATIMI ALI.A 

1080 REM MARIABILE STATISTICA X 

1090 RFM * X<1),♦♦»-X(N) ^MALORI SPERIMENTALI 

II. 00 REM PER LA MARI ABILE X 

1.110 RFM * F<l)f.*fF<N> =FREQUFN7E DI TALI MALORI 

1130 RFM * T=COFFFICIENTF PER LA MEDIA GENERALIZZATA 

1140 RFM DA CALCOLARE 

1.1.50 REM 2♦ RISULTATI FORNITI? 

1160 REM * A=MEDIA ARITMETICA 

1.170 RFM * G=MFDIA GEOMETRICA 

1.180 RFM * H=MEDIA ARMONICA 

1.1.90 REM * MI r M2-M3-M4 = MOMENTI DI ORDINE 1 ? 2-3-4 

1200 RFM * AP=COEFFICIFNTE DI APPIATTIMENTO 

1.210 RFM * AS=COEFFICIENTF DI ASIMMETRIA 

1.220 RFM * MT=MFDIA GFNERAI. IZZATA M(T) 

1.230 RFM * TF= MARI ABILE DI CONTROLLO? SE TF=1. 

1.240 REM LA MEDIA ARMONICA NON E' DEFINITA 

1.250 RFM 3 « MARI ABILI UTILIZZATE? 

1260 REM A p AP-AS r G r H rI r Mf MIfM? r M3-M4 f MT 

1270 RFM N-T-TF-M1-M2 ? M3,M4-M5-M6.M7.MT 

1280 RFM 4 »MFTTORI UTILIZZATI? 

1290 RFM F(N)yXfN) 

1300 RFM ***************************************************** 
1310 RFM 

1.320 RFM INIZIAI.177 AZIONI 

1330 REM 
1.340 TE = 0 

1350 MI = 0 ? M2 « 0 ? M3 - 0?M4 - 0 

1360 M5 = 1 ?M6 = 0 ?M7 = 0?M = 0 

1370 RFM 

1.380 RFM CALCOLO DELLE* SOMMATORIE 

1390 RFM 

1.400 FOR I = 1. TO N 
141.0 MT = F < I ) * X ( I > 

1420 MI = MI. + MT 

1430 M2 = M2 + MT * X(I) 

.1.440 M3 = M3 + MT * X < I ) A 2 

1.450 M4 - M4 + MT * X(I> A 3 

1460 M = M f F vI) 

1470 M7 = M7 + 1“( I ) * X(T> A T 


1480 IF X(I) = 0 THFN TF ~ 1? GOTO 1.520? RFM TEST SUL MALORE DEGLI X(I) 
1.490 IF TF = 1. THFN GOTO 1520? REM SE UN X~0 LA MEDIA ARMONICA NON ESI¬ 


STE F BUGILI A GEOMETRICA F' 7FR0 
1.500 M5 = M5 * X(I) A F ( I ) 

1510 M6 « M6 + F< T) / X(I) 

1.520 NFXT I 
1530 RFM 

1540 REM CALCOLO DFL.I F FUNZIONI 

1550 RFM 

1.560 A = MI / M 

1570 MT = (M7 / M) A <1 / T) 
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1580 

MI 

= A 





1.590 

M2 

= <02 - 2 * A * 

01 

+ A # A 

* 

Mi / M 

1600 

M3 

= (03 - 3 * A * 

02 

+ 3 * A 

* 

A * 01 M * A 

1610 

M4 

= <04 - 4 * A * 

03 

+ 6 * A 

* 

A * 02 -4*0 


M 






1 690 

AP 

= M4 / M2 / M2 





1 630 

AS 

- HI / (M2 a 1,5 

) 




1.640 

TF 

TF s l THEN G = 

0 J 

: RETURN 

! 

REM UN X(I1=0 

1650 

n ss 

(05) A (1 / Mi 





1.660 

H = 

M / 06 





1 670 

RFTURN 






4 ) / 


4 - ESEMPIO PRATICO 


Il calcolo è effettuato per le tre coppie di valori dato/frequenza: (1,6), (3,4), (5,8) 
utilizzando il coefficiente 2 per la media generalizzata. 

RUN 

CALCOLO BELLE MEDIE F DEI MOMENTI 
DI UNA VARIABILE STATISTICA, 


AUTOREJH.HAUT 

1,DEFINIRE IL NUMERO DI VALORI 
PER LA VARIABILE STATISTICA 

?.INTRODURRE SUCCESSIVAMENTE I 
VALORI E LE RELATIVE FREQUENZE 
PREMERE UN TASTO PER PROSEGUIRE 
NUMERO DI VALOR1= 3 


X=1 
F = 6 


X=3 

F=4 


X=5 

F=8 


CALCOLO DELLA MEDIA GENERALIZZATA M(T) 

PER T= 2 

MEDIA ARITMETICA = 3,22222222 
MEDIA GEOMETRICA = 2,61023904 
MEDIA ARMONICA = 2,01492537 
MOMENTI t 

Ml=3»22222??2 
M2=3,06.1.7284 
M3=-l,16323733 
M4=12,5688.157 

COEF, D" APPIATTIMENTO 55 ! , 34079084 
COEF, D'ASIMMETRIA =-,217129252 

MEDIA GENER, M<2> =3,66666667 

tempo d’esecuzione: 1”2 

memoria richiesta: 3745 bytes (senza REM : 1584). 
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PROGRAMMA NUMERO 13 


DISTRIBUZIONI STATISTICHE 


Il programma è applicabile ad una qualsiasi delle sei distribuzioni statistiche se¬ 
guenti: binomiale, di Poisson, normale, normale a due variabili, “chi quadro", t di Stu- 
dent. 

Per la maggior parte di esse viene inoltre calcolata sia la funzione di densità di pro¬ 
babilità che quella di probabilità cumulata. 

Riferimenti bibliografici: Al, Gl, H2, J2, MI. 


1 - DEFINIZIONI E METODI 


1.1 — Distribuzione binomiale 


a) Definizione 

Sia p la probabilità favorevole per il verificarsi di un certo evento. La probabilità 
che tale evento si presenti x volte nel corso di N prove è data dalla legge binomiale: 


P(x) = 



p x (1 _p)N-x 


ove 



N! 

x! (N - x)l 


La funzione cumulativa di probabilità in x (vale a dire la probabilità di ottenere al 
più x successi) è data da: 


£ P(k) 

k-0 
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b) Metodo 

Si utilizza la formula di ricorrenza: 

p(l) = - N + 1 ~ 1 —B— P (| _ i) 1=1,2. x 

I q 

con q = (1—p) e p(0) =q N 

1.2 — Distribuzione di Poisson 

a) Definizione 

La funzione di densità di probabilità di una distribuzione di Poisson avente media p 
è definita come: 



e la funzione cumulativa è data: 

£ p(k) 
k- o 

b) Metodo 

Si utilizza la formula di ricorrenza: 

P(x) =-L p ( X - 1) 

x 


con 


P(0) = e 


1.3 — Distribuzione normale 


a) Definizione 

La densità di probabilità relativa ad una distribuzione normale (di media p e varian¬ 
za G 2 ) viene definita nel modo seguente: 


f(x) 


1 

vwr 


cr 


exp (- 


(x-p) 2 

2G 2 


z (- 


x 


- P 

c 


) 


b) Metodo 

La funzione cumulativa PX si ottiene nel modo seguente: 


PX 



G 


Z(t) dt = P ~ ^ . )= 1 - Q |. . , x ~ ^ j 
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utilizzando per il calcolo la funzione Q(y) definita con il seguente sviluppo: 


Q(y) = Z(y) = [b 4 t + b 3 t 2 + b 2 t 3 + b,t 4 + b 0 t 5 ] + £ (x) 


In questo sviluppo l’errore è limitato dalla condizione [ £ (x) ] < 7.5 * 10 8 e i 
coefficienti t e bi sono definiti tramite le formule seguenti: 


t = 1/(1 + py) 
b 0 = 1.330274429 
b 2 = 1.781477937 


p = .2316419 
b, = -1.821255978 
b 3 = -.356563782 


b 4 = .319381530 


1.4 — Distribuzione normale a due variabili 

Per questa distribuzione è stato previsto solo il calcolo della densità di probabilità 
per una coppia di valori delle variabili aleatorie x e y. 


La funzione di densità viene definita nel modo seguente: 


f(x, y) = 


1 

2f!a x CTy 


1 

A/ì _r T yT 


exp — 



ove 


p x = media di x 
C x = varianza di x 
p y = media di y 
C7 \ = varianza di y 

p = coefficiente di correlazione tra x e y 


1.5 — Distribuzione “chi quadro” 

a) Definizione 

La funzione di densità relativa alla distribuzione “chi quadro” a V gradi di libertà, è 
definita come: 


FX = f(x|v) = 


1 

2 v/2 r ( v /2 ) 


e ~ x/2 x( 


v 

2 


D 


(x-> 0 ) 
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La funzione cumulativa di probabilità si può ottenere tramite il seguente sviluppo in 
serie: 


PX = 


(x/2) v < 2 


X 

J f(x I v) d v=P(x | v) = 

0 

p x/2 / OO 

- - 1 + E 

r (v/2 + 1) \ r ! 


_X[_ 

(v + 2) (v + 4) ... (v + 2r) 


) 


b) Metodo 

Si calcola dapprima F (v/2) che, a seconda che v sia pari o dispari, è dato da: 


se v = 2n 


r (v/2) = 1.2.3. (n - 1) 


se v = 2n + 1, 


(v/2) = 1/2.3/2.5/2. — ■ 2n ~ 1 - y/n 


Si utilizza poi questo sviluppo per calcolare PX, troncando la serie quando il termi¬ 
ne n-esimo risulta inferiore a 10~ 8 . 


1.6 — Distribuzione t di Student 

a) Definizione 

La densità di probabilità relativa alla distribuzione di Student a v gradi di libertà è 
definita come: 


f(x | V) = - [Ì2-1L/2JJ-_ (1 +x 2/ v )-(v+1)/2 

V7tv [ (v - 2)12) ! 


Si definisce poi come probabilità che la variabile aleatoria x assuma un valore più 
piccolo di t (in valore assoluto): 


FX = Prob (Ixl <t) =A(t| v) = jf(x| v) dx 


La funzione cumulativa di probabilità risulta pertanto data da: 


PX = Prob (x < t) = 


1 + A(t I i>) 
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b) Metodo 

La funzione A(t I v) può essere calcolata tramite il seguente sviluppo in serie: 


/(v > 1 e v dispari) : 2/n |© + S in0 (cos0 + 2/3 cos 3 0 + 


A(tl v) = 


(» = 1 ) 

\(v pari) 


2/n 0 
sin0 


2 4 ... (v -3) 

3 5 ... (v -2) 

1+1/2 cos 2 0 + ... 

+ 1 3 5 ... (v -3) 


cos 


'' 2 ©J 


2 4 6 ... (v -2) 


cos r ~ 2 0 


con tg 0 = t/\/v 
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distribuzione di Poisson 


inizializzazione 


f uso della formula 
di ricorrenza 











Calcolo di Q(x): 
algoritmo di Horner 
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3 - PROGRAMMA 


1 REM CALCOLO DELLE DISTRIBUZIONI 

2 REM STATISTICHE, 

3 REM 

4 REM AUTORE ♦ H ♦ HAI.IT 

5 REM 

6 REM 

7 REM descrizione: 

8 REM IL PROGRAMMA PERMETTE DI CALCOLARE 

9 REM LE DISTRIBUZIONI SEGUENTI 

10 REM 1 » DISTRIBUZIONE BINOMIALE 

11. REM 2,DISTRIBUZIONE DI POISSON 

12 REM 3,DISTRIBUZIONE NORMALE 

13 REM 4,DISTRIBUZIONE NORMALE A 2 VARIABILI 

14 REM 5,DISTRIBUZIONF CHI-QUADRO 

15 REM A,DISTRIBUZIONE T DI STUDENT 

16 REM 

18 REM 

19 REM 
100 REM 

110 REM REGOLE D'USO 
120 REM 
130 HOME 

140 PRINT TAB( 5)?'CALCOLO DELLE DISTRIBUZIONI* 

150 PRINT T AB < 14) f "STATISTICHE ■ 

160 PRINT 

170 PRINT TAB( 20) J ' AUTORE t H♦ HAIJT■ 

180 PRINT t PRINT 

190 PRINT '1♦SCEGLIERE LA DISTRIBUZIONE: 1-DISTR, BINOMIALE" 

200 PRINT ' 2=DISTR * DI POISSON 3=DISTR, NORMALE 

4=DISTR♦ NORMALE A 2 VARIABILI 5=DISTR, 

CHI-QUADRO 6=DISTR♦ T DI STUDENT' 

210 PRINT 

220 PRINT '2,DEFINIRE I PARAMETRI DELLA DISTRIBUÌ- ZIONE SCELTA' 

230 PRINT 

240 PRINT '3,INSERIRE IL VALORE DELLA VARIABILE ALEATORIA PER CUI DE 

VE ESSERE EFFETTUATO IL CALCOLO' 

250 VTAB (22): PRINT 'PREMERE UN TASTO PER PROSEGUIRE ': GET A$ 

260 REM 

270 REM ISTRUZIONI DI DIMENSIONAMENTO 

280 REM 

290 DIM B < 4) 

300 REM 

310 REM GESTIONE DEI DATI IN INPUT 
320 REM 

330 HOME 

340 INPUT "SCELTA DELLA DISTRIBUZIONE 'JCH 
350 HOME 

360 ON CH GOTO 370 ? 410.450 ? 490 - 590 - 630 

370 PRINT 'DISTRIBUZIONE BINOMIAI F: P=PROBABILITA' DI S 

UCCESSO N=NUMERO DI PROVE X=NUMERO 

DI EVENTI FAVOREVOLI' 

380 PRINT : INPUT ■p=-:p 

390 INPUT 'N=':n: PRINT 

400 INPUT 'X=';x: GOTO 690 

410 PRINT 'DISTRIBUZIONE DI POISSON: MU=MEDIA * 

420 PRINT : INPUT 'MU='?M 

430 PRINT : INPUT " X^'JX 

440 GOTO 690 

450 PRINT 'DISTRIBUZIONE NORMALF* MU-MEDIA 

S=SCARTO QUADRATICO' 

460 PRINT : INPUT 'MII=*:M 

470 TNPUT ' S=*:s: PRINT 

480 INPUT ' x=*;x: GOTO 690 
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490 PRTNT «DISTRIBUZIONI?: NORMALI? A ? VARIABILI V.Y1 MX=MEDIA PFR X 

MY=MFDTA PFR Y SX=SCAF: 

to quadratico ni x 

500 PRTNT • SY=SCARTO pilADRATTrn TU Y RO=rnEFFICIENTF DI 

CORRFLAZIONE - 

510 PRTNT ! INPUT *MX=*JMX 

520 INPUT •RX= , !BX 

550 INPUT "MY=■:MY 

540 INPUT •sy= , ;ry 

550 INPUT “RO—• i Rn 

560 PRINT i INPUT «X-’IX 

570 INPUT ■Y= , |Y 

580 GOTO 690 

590 PRINT «DISTRIBUZIONE CHI-QUADRO ! NU-NUMERO DI GRADI D 

I LIBERTA" 

600 PRINT ! INPUT «NU=«fNU 

610 PRINT ! INPUT - X='!X 

620 GOTO 690 

630 PRINT «DISTRIBUZIONE T DI STUDENTI NU=NUMFRO DI GRADI 

DI LIBERTA' 1 

640 PRINT ! INPUT «NU=’JNU 

650 PRINT ! INPUT - X="|X 

660 REM 

670 REM CHIAMATA DEL SOTTOPROGRAMMA PRESCELTO 
680 REM 

690 ON CH GOSUB 1000,2000,3000,4000,5000,6000 
700 REM 

710 REM GESTIONE DEI RISULTATI! 

720 REM 

730 PRINT 

740 A* .= «PROB(VAR.ALEATORIA =X) = - 
750 B$ = «F’ROB ( VAR ♦ ALEATORI A<>X > = - 
760 C$ = * PROB < VAR.ALEATORIA>«X)=« 

770 IF CH = 4 THEN PRINT 'PROBIVAR.ALEATORIE =X,Y)= - JFXY! GOTO 860 

780 IF CH < > 6 THEN GOTO 830 

790 PRINT « PROB<-X<«VAR.ALEAT,<»X) = «}BT 

800 PRINT B$ r F'X 

810 PRINT C*!QX 

820 GOTO 860 

830 PRINT A$fEX 

840 PRINT B$?PX 

850 PRINT C$fQX 

860 PRINT ! INPUT «Al TRO CALCOLO» (S 0 N)S «JD* 

870 IF Ti* = «N« THEN END 
880 F'RINT ! INPUT - X= - !X 
890 IE CH = 4 THEN INPUT - Y= - ;Y 
900 GOTO 690 

1.000 REM ******************************************* 

1010 REM SUBROUTINE DISTRIBUZIONE BINOMIAL E 
1020 REM 

1.030 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
1040 REM 1,DATI NECESSARI! 

1050 REM * F-PROBABILITA' DI SUCCESSO 

1060 REM * N=NIJMERO DI PROVE 

1.070 REM * X=VALORE DELLA VARIABILE ALEATORIA 

1080 REM 2.RISULTATI FORNITI! 

1090 REM * FX=PROB<VAR.ALEATORI A =X> 

1100 REM * PX-PROB<VAR.AlEATORIA<-X) 

1.110 REM * OX=F'ROB(VAR. ALEATORI A>=X ) 

1120 REM 3.VARIABILI UTILIZZATE! 

1130 REM FX,I,N,N1,F',PX,Q,QX,T,X 

1150 0 = 1 - P 
1160 T = P / Q 
1170 NI. => N 4 1 

1180 FX = 0 A N! REM EX=PR0B(0> 

1190 PX = FX 
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1.200 IF X -• 0 THEN GOTO 1.260? RFM TERMINE 

1210 REM CALCOLO PER RICORRENZA 

1.220 FOR I — 1. TO X 

1.210 FX = (NI - I> * T * FX / I 

1.240 PX = PX + FX 

1250 NFXT I 

1.260 QX = 1. + FX -■ PX 

1.270 RETURN 

2010 REM SUBROUTINE DISTRIBUZIONE DI POISSON 
2020 RFM 

2030 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
2040 REM 1♦DATI NECESSARI? 

2050 REM * M“MEDI A 

2060 REM * X“MALORE DELLA VARIABILE ALEATORIA 

2070 REM 2,RISULTATI FORNITI 1 

2080 RFM * FX=PROB(VAR♦ALEATORIA =X> 

2090 RFM * PX=PROB(VAR♦ALEATORIA<=X) 

21.00 RFM * QX=F'ROB (VAR ♦ AL EATORIA>-X) 

21.1.0 RFM 3. VARI ABILI UTILIZZATE ? 

21.20 REM EX,I,M,PX f QX,X 

21.30 REM %***%%M***W**MMMMM****)k***%**%***%X% 

2140 FX = EXP ( - M) 

21=10 PX - FX 

21.60 TF X = 0 THEN GOTO 2270? REM TERMINE 

7170 REM FORMULA DI RICORRENZA 

71.80 FOR I = 1. TO X 

7190 FX = FX * M / I 

7700 PX = PX + FX 

77.10 NEXT I 

7770 QX « .1. + FX - PX 

7730 RFTURN 

3000 REM *$**************'M**************X*********** 

3010 REM SUBROUTINE DISTRIBUZIONE NORMALE 

3070 REM 

3030 RFM RFGOL.E PER L'USO DEL SOTTOPROGRAMMA 
3040 REM 1 ♦ DATI NECESSARI? 

3050 REM * M=MEDIA 

3060 REM * S^SCARTO QUADRATICO 

3070 REM * X=VALORE DELLA VARIABILE ALEATORIA 

3ORO REM 2♦RISULTATI FORNITI? 

3090 REM * FX=PROB(VAR♦ALEATORIA =X) 

3100 REM * PX=PROB(VAR♦AL FATORIA<=X) 

311.0 REM * QX=PROB ( VAR ♦ ALEATORI A>=X ) 

3.170 REM 3 ♦ VARIABILI UTILIZZATE? 

31.30 REM EX,I,M r PO,PP,PX,QX,S,T,X,Y,ZY 

31.40 REM 4 ♦ VETTORE UTILIZZATO? 

3150 REM B(4) 

3160 REM 

3170 RFM 

3180 REM DEFINIZIONE DEI COEFFICIENTI B(I) 

3190 RFM 

3700 R(0) = 1.330274409! B< 1. ) = - 1.821255978 ! B < 2 ) * 1.781477937 ! B < 3 ) » - 

.356563782!B<4> = .319381530 
3210 F'F’ = ,2316419 
3220 Y = (X - M» / S 

3230 ZY » EXP < - Y. * Y / 2) / 2.506428275 
3240 FX = ZY / S 
3250 REM 

3240 REM CALCOLO DI OX CON IL METODO DI HORNFR 
3270 RFM 

3280 T = 1 / (1 + PP * Y) 

3290 PO = 0 

3300 FOR I = 0 TO 4 

3310 PO = PO * T + B<I) 

3320 NEXT I 
3330 PO = PO * T 
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3340 QX = ZY * PO 
3350 PX = 1 - QX 
3360 RETURN 

4000 REM X****************************************** 

4010 REM SUBROUTINF DISTRIPOZIONE NORMALE A ? VARIABILI 
4020 REM 

4030 REM REGOLE PER L'USO PEL SOTTOPROGRAMMA 
4040 REM 1»PATI NECESSARI? 

4050 REM * MX=MEDIA DI X 

4060 REM >K MY=MFDIA DI Y 

4070 REM * SX=SCARTO QUADRATICO DI X 

4080 REM * SY-SCARTO QUADRATICO DI Y 

4090 REM * RO=COEFFICIENTE DI CORRELAZIONE 

41.00 REM * X=VALORE DEI.LA PRIMA VARI ARILE ALEATORIA 

411.0 REM * Y-UA! ORE DELLA SECONDA VARIABILE ALEATORIA 

41.20 REM 2 * RISULTATO FORNITO? 

41.30 REM * FXY=PROB < VAR » ALEATORIE = X,Y> 

4140 REM 3 * VARIABILI UTILIZZATE? 

4150 REM FXY , MX,MY,R » RO.8-SX? SY-T ?V T - X ? Y 

4160 REM X******************************************. 

4170 S = (X - MX) / SX 

41.80 T = (Y - MY) / SY 

4190 R « 2 * <1 - RO * RO) 

4200 VT = S * S + T * T - 2 * RO * S # T 
4210 UT = EXP < - VT / R> 

4220 S = SX * SY * SOR (2 * R) * 3,141592654 
4230 FXY = VT / S 
4240 RETURN 

5000 REM **X***%***%M**MW*%****X**X%*%*%*#.XX***** 

5010 REM SUBROUTINF DISTRIBUZIONE CHI-QUADRO 

5020 REM 

5030 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA? 

5040 REM 1. -DATI NECESSARI? 

5050 REM * NU=NUMERO DI GRADI DI LTBFRTA' 

5060 REM * X=VALORF DELLA VARIABILE ALEATORIA 

5070 REM 2,RISULTATI FORNITI? 

5080 REM * FX=PROB<VAR,ALEATORIA =X) 

5090 REM * PX=PROB < VAR * ALEATORIA<=X) 

5100 REM * QX=PROB(VAR,ALEATORIA>=X) 

5110 REM * GN=GAMMA < NU/2) 

51.20 REM 3, VARIABILI UTILIZZATE ? 

5130 REM AA,BB,FA,FM,FX,GN,I, N,N2,NU,PX-QX,X 

5140 RFM X**X*%%X*XX*XX***M*%*%%X**%*XX*%*%***yi%%%% 

5150 REM 

5160 REM CALCOLO DI GN=GAMMA<NU/2> 

5170 REM 

5180 N2 = NU / 2 

5190 GN = 1 

5200 N = INT (N2) 

5210 IE NU = 2 * N THEN GOTO 531.0 

5220 REM 

5230 REM CALCOLO DI GN PFR NU DISPARI 
5240 REM 

5250 TE NU = 1 THEN GOTO 5290 

5260 FOR I = ITO 2 * N - 1 STER 2 

5270 GN = GN # I / 2 
5280 NEXT I 

5290 GN = GN * 1,7724528509 
5300 GOTO 5380 
5310 REM 

5320 RFM CALCOLO DI GN PER Nl.l PARI 
5330 REM 

5340 IF NU - 2 THEN GOTO 5380 

5350 FOR I = 1 TO N - 1 STFP 2 

5360 GN = GN * I 
5370 NEXT I 
FI380 REM 
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CALCOLO riT rx 


5790 
5400 
541.0 
5420 
5430 
5440 
5450 
5460 
5470 
5400 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
61 30 
61 40 
6150 
61 60 
6170 
61.80 
6190 
6200 
621.0 
6220 
6230 
6740 
6750 
6760 
6770 
6780 
6790 
6300 
6310 
6370 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6470 
6430 
6440 
6450 


RFM 
RFM 

FX — X A < N7 ~ 1) 

AA = FXP ( - X / 2) 

BB = rn * (7 A N.7 > 

FX = FX * AA / 8P 

RFM 

RFM CALCOLO DELI O SVILUPPO DI PX 
RFM 

FA = (X / 2) A N7 

FA - FA * AA / (N2 * ON) 

FM = 1 
PX = 1 
I = 2 

FM = FM * X / (NU + I) 

PX = PX + FM 

TF (FM * FA) > 1E - 8 THEN 1=1+2* GOTO 5530 
RFM LA PRECISIONE E' OTTENUTA 
PX « RX * FA 
OX = 1 - PX 
RETURN 


RFM SUBROUTINE DISTRIBUZIONE T DI STUDFNT 
RFM 

RFM REGOLE PER L'USO BEL SOTTOPROGRAMMA 
REM 1 * DATI NECESSARI * 

REM * NU=NUMERO BT GRADI DI LIBERTA' 

RFM * X=VAIORE DELLA VARIABILE ALEATORIA 

RFM 2♦RISULTATI FORNITI? 

REM * BT=PROB(-X<=VAR♦ ALEATORI A ; ."=X) 

REM * PX=PR0B(VAR*ALEATORIA<=X) 

REM * QX=PROB(MAR♦ALEATORIA>=X) 

REM 3♦VARIABILI UTILIZZATE * 

RFM BT r I,NT -NU,PX,OX ,T.TT,VT f X 

X = X / SOR (NU) 

T = ATN (X)? REM T=THFTA 

IE NU = 1 THEN BT = T * .63661.97724? GOTO 6450? RFM BT-A(X/| 
NT - 7 * TNT (NU / 7) 

IF NT = NU THEN GOTO 6330 
REM 

RFM CALCOLO DELLO SVI! UPPO BT A(X/NI.I) PER NU DISPARI 
REM 

BT = COS (T) 


TT = BT * BT 
UT = BT 

IF NU = 3 THEN GOTO 6300 
FOR 1=7 TO NU - 3 STEP 7 
UT = VT * I * TT / (I + 1) 

BT = BT + VT 
NEXT I 

BT » BT * SIN (T) 

BT = (BT + T) * .6366197724 
GOTO 6450 
REM 

RFM 0 AL POI 0 BELIO SUT! I.IPPO TU A(X/NU) PFR NI.I PARI 
RFM 

TT = POS (T) A 7 
BT = 1 
UT = 1 

TF Nll = 7 THEN GOTG 6440 
FOR I = .1 TO NI I - 3 STEP 7 
UT = VT * T * TT / (T + 1) 

BT = BT + VT 
NEXT I 

BT = BT * SIN (T) 

PX « (1 + BT) / 2 
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A460 QY “ t - PX 
A470 RFTIIRN 


4 - ESEMPIO PRATICO 

L’esempio permette di calcolare le funzioni relative a ciascuna delle sei distribu¬ 
zioni partendo dai seguenti parametri iniziali: 

1 — Binomiale: p = .5 

n = 3 
x = 1 

2 - Poisson: mu = 1.8 


3 — Normale: mu = 2 

sx = 3 
x = 5 

4 — Doppia normale: 

mx = .1 
sx = 1.4 
my = 2.4 
sy = .9 
rho = .75 
x = 1 
V = 2 

5 — Chi-quadro: nu = 3 

x = 1 

6 — t di Student: nu = 19 

x = .257 

RUN 

CALCOLO DELLE DISTRIBUZIONI 
STATISTICHE 

AUTORE * H.HAUT 

1.SCEGLIERE LA DISTRIBUZIONE! 
1.=DISTR, BINOMIALE 
2=DISTR. DI POISSON 
3=DISTR, NORMALE 
4-DISTR. NORMALE A 2 VARIABILI 
5=DISTR. CHI-QUADRO 
6=DISTR. T DI STUDENT 
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2 » DEFINIRE I PARAMETRI DELLA DISTRIBU¬ 
ZIONE SCELTA 

3.INSERIRE IL VALORE DELLA VARIABILE 
ALEATORIA PER CUI DEVE ESSERE 
EFFETTUATO IL CALCOLO 
PRFMFRF UN TASTO PER PROSEGUIRE 
SCELTA DELLA DISTRIBUZIONE I 
DISTRIBUZIONE BINOMIALFÌ 

REPROBASILITA' DI SUCCESSO 

N-NUMERO DI PROVE 

X=NUMERO DI EVENTI FAVOREVOLI 

P= . S 
N=3 

X=1. 

PROBIVAR,ALEATORIA =X'=,375 
PROB(VAR,Al EATORIA<=X> =. 5 
PROB(VAR,ALEATORIA>=X)=.875 

ALTRO CALCOLO? (S 0 N>! N 


RUN 

CAI COI 0 DELLE DISTRIBUZIONI 
STATISTICHE 

AUTOREJH.HAUT 


1.SCEGLIERE LA DISTRIBUZIONE! 

1“DISTR. BINOMIAL F 

?=DISTR, DI POISSON 

3=DISTR. NORMALE 

4-DISTR. NORMALE A 2 VARIABILI 

5=DISTR. CHI-QUADRO 

A-DISTR * T DI STUDENT 

2.DEFINIRE i PARAMETRI DELLA DISTRIBU¬ 
ZIONE SCELTA 

3.INSERIRE IL VALORE DELLA VARIABILE 
ALEATORIA PER CUI DEVE ESSERE 
EFFETTUATO IL. CALCOLO 
PRFMERE UN TASTO PER PROSEGUIRE 
SCELTA DELLA DISTRIBUZIONE 2 _ 
DISTRIBUZIONE DI POISSON! 

MU=MEDIA 

MU=1.8 


X=4 


PROBIVAR.ALEATORIA =X'=.0723017337 
PROB(VAR.ALEATORIA<=X> =.9A3593339 
PROB(VAR.ALEATORIA>=X>=.108708394 

ALTRO CALCOLO? (S 0 N >! N 

1 
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RUN 

CALCOLO DELLE DISTRIBUZIONI 
STATISTICHE 

AUTORE!H,HAUT 


1.SCEGLIERE LA DISTRIBUZIONE! 
l=niSTR. FU NOMI Al E 
2=DISTR. DI POISSON 
3=DISTR. NORMALE 
4=DISTR. NORMALE A 2 VARIABILI 
5=DISTR, CHI -QUADRO 
ARDISTE » T DI STUDENT 

2.DEFINIRE I PARAMETRI DELLA DISTRIBU¬ 
ZIONE SCELTA 

3,INSERIRE IL VALORE DELLA VARIABILE 
ALEATORIA PER CUI DEVE ESSERE 
EFFETTUATO IL CALCOLO 
PREMERE UN TASTO PER PROSEGUIRE 
SCELTA DELLA DISTRIBUZIONE 3 
DISTRIBUZIONE NORMALE! 

MU-MEDIA 

S-SCARTO QUADRATICO 


MU=2 

S=3 

X=5 

PROB< VAR.ALEATORIA =X) =.0S06569082 
PROB ( VAR, ALEATORI A<=X ) =. 8.4134474 
PROB < VAR.ALEATORIA>=X)».15865526 

ALTRO CALCOLO? <S 0 N)! N 

I 


RUN 

CALCOLO DELLE DISTRIBUZIONI 
STATISTICHE 


AUTORE1H.HAUT 


1.SCEGLIERE LA DISTRIBUZIONE! 

1- DISTR* BTNOMIALE 

2- DISTR» DI POISSON 
3=BISTR. NORMALE 

4=DISTR. NORMALE A 2 VARIABILI 
5=DISTR, CHI-QUADRO 
6-DISTR. T DI STUDENT 

2.DEFINIRE I PARAMETRI DELLA DISTRIBU¬ 
ZIONE SCELTA 

3.INSERIRE IL VALORE DELLA VARIABILE 
ALEATORIA PER CUI DEVE ESSERE 
EFFETTUATO IL CALCOLO 
PREMERF UN TASTO PER PROSEGUIRE 
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SCELTA DELLA DISTRIBUZIONE 4 
DISTRIBUZIONF NORMALF A 2 VARIABILI X,Y 
MX=MEDIA PER X 
MY=MEDIA PER Y 
8X-8CART0 QUADRATICO DI X 
SY=SCARTO QUADRATICO DI Y 
RO=COEFFICIENTE DI CORREI...AZIONE 


MX=1.1 
SX=1,4 
MY=2.4 
SY=.9 
R0=,75 

X=1 

Y=2 

F'ROB < VAR. ALEATORIE =X-Y>=, 1.599*3727 
ALTRO CAI..COL.O? (S 0 N ) i N 
I 


RUN 

CALCOLO DELLE DISTRIBUZIONI 
STATISTICHE 

AUTORE !H, HAI IT 


1. .SCEGLIERE LA DISTRIBUZIONE! 
1=DISTR. BINOMI ALE 
2=DISTR. DI POISSON 
3=DISTR. NORMALE 
4=DISTR, NORMALE A 2 VARIABILI 
5-DI8TR. CHI-QUADRO 
A=DISTR. T DI STUDFNT 


2,DEFINIRE I PARAMETRI DELLA DISTRIBU¬ 
ZIONE SCELTA 

3.INSERIRE IL VALORE DELIA VARIABILE 
ALEATORIA PER CUI DEVE ESSFRE 
EFFETTUATO IL CALCOLO 
PREMERE UN TASTO PER PROSEGUIRE 
SCELTA DELLA DISTRIBUZIONE 5 
DISTRIBUZIONE CHI-QUADRO ! 

NU=NUMERO DI GRADI DI LIBERTA' 


NU=3 

X=1. 


F'ROB I VAR. ALEATORIA =X > =. 241.9708*1. 
PROBI VAR, AL EATORIA<=X) = , 1987481.55 
F'ROB (VAR. ALEATORI A>=X> = . BOI. 251845 

ALTRO CALCOLO? (S 0 N>! N 

1 
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RUM 


hai omo deli f distribuì ioni 
STATISTICHE 


AUTORE ili* HAI. IT 


1 . SCESI IERE LA DISTR T DU7 T OMF ! 

1.=DISTR, RI NOMI Al. F 

2=DTSTR* DI POTSSON 

3=DIRTR* NORMALE 

4=DISTR♦ NORMALE A 2 VARIABILI 

5«D I STR ♦ OH I -QUADRO 

A-DTSTR, T DI STIJDENT 

? • DEFINIRE T PARAMETRI DFi I A RTSTRTRII- 
7I0NE SCELTA 

7 * INSERIRE II VAI ORE DELIA VARI ADII F 
A| FATORTA PER oiIT DFUE ESSERF 
EFFETTI IATO TI CAI CHI 0 
PREMERE IIN TASTO PER PRORFRI.1TPF 
SCELTA DELI.. A DT STR IBI 17 IONE 6 

DTSTRIBU7I0NE T DT STUDENTE 

NU«NHMERO DT RRADT DT I TBERTA' 

MI 1= 1 9 

y-.?S7 


PF'OB ( UAR . (0,1 FAI. > - , 7Q00E.R704 

F'ROB ( VAR * A! FATORI A="=y > - * A000997S2 
PROB(VAR * Al FATOR T A>-V) “* 799970A4R 

Al TRO CAI ORI 0? (P. O N>? N- 


tempo d’esecuzione: 1” 

memoria richiesta: 8446 bytes (senza REM : 3108). 
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PROGRAMMA NUMERO 14 


REGRESSIONE AD UN PARAMETRO 


Le regressioni ad un parametro, presentate in questo capitolo, permettono di adat¬ 
tare dei dati sperimentali ad una retta o una curva polinomiale di ordine superiore o a 
una curva di tipo esponenziale o ad una curva di tipo logaritmico. 


1 METODI NUMERICI 

1.1 — Regressione lineare semplice 

Siano date due variabili x e y legate tra loro da una legge lineare del tipo: 
y = a + Px 

Il problema della regressione consiste nello stimare i valori da attribuire ai para¬ 
metri a e (3 a partire da un insieme di n dati sperimentali x,, yi (i = 1,2.n). 

Supponiamo ora che siano verificate le seguenti ipotesi supplementari: 

a) i valori X| sono esenti da errori sperimentali di misurazione 

b) i valori y, sono soggetti a degli errori di misura £j statisticamente indipendenti e 
aventi distribuzione normale con media 0 e varianza O 2 . 

Abbiamo risolto il problema della regressione applicando il metodo dei minimi qua¬ 
drati che consiste nel calcolare la somma degli scarti quadratici 

Q= I( yj —a-pxi) 2 

I 

e nello stimare i parametri a e p con i valori a e b che rendono minimo il valore di Q. 
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Per ottenere ciò basta risolvere il sistema: 


8q 

Sa 

5Q 

w 


2 (Yi - a - bx ( ) = 0 
^ (Yi — a — bXj) x,=0 

i 


che ha per soluzione: 

b = £ ( x i- *) Yi 

E(Xi-x ) 2 

(1) a = y — blT 

ove'x = 1/n£x i e y=1/n£yj 


Sostituendo nella (1 ) l’espressione yi = a + p X, + £, si giunge ad esprimere a e b in 
funzione di a e p. 


b = p + 


£ £j (xj —~x) 
I(Xi-x) 2 


£ Si _ x £ Cj (xi — x) 
n £(Xj -x) 2 


Queste espressioni permettono di calcolare i valori "aspettati" per a e b; E [a] ed 
E [ b ] (valori medi di a e b). 

Poiché E[a] = aeE[b] = psi può dire che a e b sono dei buoni estimatori per i para¬ 
metri a e p. 

Il calcolo della varianza e della covarianza per a e b dà poi i seguenti risultati: 


(2) <r* = E I(t>— P) 2 ] - 

b 


G 2 

£ (x i —"x) 2 


0. lb = E[(a-a) (b-p)] = 


-x G 2 
£ (Xj —IO 2 
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Si può dimostrare infine che s 2 = E(y; — yj) 2 /(n — 2) è un buon estimatore di <7 2 
(E [s 2 ] = O 2 ) e tramite esso calcolare i valori delie (2). 

Il programma realizzato calcola, a partire dai dati sperimentali i valori di a,b, O 2 , 
G a 2 , G b 2 , Cab e permette di effettuare un’interpolazione per x o y dati. 

1.2 — Adattamento ad altre curve ad un parametro 

L’adattamento a una curva del tipo y = ax b si riduce ad una regressione lineare 
passando ai logaritmi: 

In y = In a + b ■ In x 

Applicando allora il metodo illustrato in precedenza all'Insieme di dati (In Xj, In yj) si 
possono stimare i valori di In a e di b. 

Nello stesso modo si può operare nel caso di una funzione esponenziale del tipo y 
= a e b *, applicando la trasformazione: 

In y = In a + bx 

Nel caso di una funzione di tipo logaritmico dei tipo y = a + b In x non si rendono 
necessarie ulteriori trasformazioni essendo la stessa già lineare nei parametri a e b. 

Riferimenti bibliografici: B2, C5, Gl, H2, MI. 
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- DIAGRAMMA A BLOCCHI 
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Calcolo dei parametri 
della regressione 
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3 - PROGRAMMA 


i. 

3 

4 

6 

7 

8 
? 

IO 

1 . 1 . 

1.2 

1.3 

1.4 

1.5 
100 
110 
1.20 
1.30 
1.40 
.1.60 
1.70 
1.80 


1.90 

200 

2 . 1.0 

220 

230 

240 

250 

260 

270 

280 

290 

300 

31.0 

320 

330 

340 

350 

360 

370 

380 

400 

41.0 

41.5 

420 


REM REGRESSIONI AD UN PARAMETRO 

REM 

REM AUTOREJH*HAUT 

REM 

REM 

REM descrizione: 

REM IL PROGRAMMA PERMETTE DI ADATTARE UN INSIEME 

REM DI DATI(X(I),Y(I ) ) A UNA RFTTA - A UNA CURVA 

REM DEI TIPO A*X A B- A UNA CURVA ESPONENZIALE 

REM 0 A UNA CURVA LOGARITMICA 

REM 

REM ***#**5K**)|(**^**^*)K*l<#**^^^*'lc#)|c*;i(:)K5K*)K#JK* ****:****** 

REM 

REM 

REM 

REM REGOLE D'USO 

REM 

HOME 

PRINT TAB< 5)?■REGRESSIONI AD UN PARAMETRO* 

PRINT : PRINT TAB( 20 ) ? * AUTORE♦H♦HAUT * 

PRINT : PRINT 

PRINT * 1♦DEFINIRE IL TIPO DI CURVA A CUI SI VOGLIONO ADATTARE I 

DATI: 1=RETTA 2=FUNZI 

ONE DEL TIPO A*X A B 3=CURVA ESPONENZIALE 

4=CURVA LOGARITMICA* 

PRINT 

PRINT *2» INTRODURRE II... NUMERO DI DATI SPERIMEN- TALI * 

PRINT 

PRINT *3* INTRODURRE LE COPPIE (X(T)-Y(I)) I 'UNA DOPO L'ALTRA* 

VTAB (22): PRINT 'PREMERE UN TASTO PER PROSEGUIRE *: GET A$ 

HOME 

REM 

REM GESTIONE DEI DATI IN INPUT 
REM 

DIM M0$<4>,VE*<4),VA*<4) 

FOR I = 1 TO 4! READ MO*(I),VE*<I),VA$(I): NEXT i: REM PREPARAZIONE 
PER L'IMPAGINAZIONF 

DATA * Y=A + B*X * t * Y ’-* A * . * Y=A * ( X A B ) * , * ! N ( Y ) * , * LN ( A ) * - * Y= 
A* EXP(B*X) * r *LN(Y) * , *LN<A) * r *Y=A + B*|..N(X>*,* Y * r * A * 

PRINT * TIPO DI REGRESSIONE:* 

FOR I = 1. TO 4: PRINT TAB ( 20> ? I ? * = * ?M0$ < I ) : NEXT I 
INPUT * VOSTRA SCELTA (1,2-3,4 >:*-*CH 
PRINT : PRINT 

INPUT ‘NUMERO DI PUNTI= *?N 
REM 

REM ISTRUZIONI DI DIMENSIONAMENTO 

REM 

REM 

DIM X<N)•Y(N) 

REM INSERIMENTO DATI 
FOR I = 1. TO N 


430 PRINT 
440 PRINT I 

450 CV = PEEK (37): VTAB <CV>: HTAB (1.0) : INPUT *X="JX(I) 
460 HTAB (10): INPUT *Y=*?Y(I) 

470 NEXT I 
480 REM 

490 RFM CHIAMATA DEL SOTTOPROGRAMMA RICHIESTO 

500 REM 

510 ON CH GOSUB 1000-2000,3000.4000 
520 RFM 

530 RFM GESTIONE DEI RISULTATI 

540 REM 
550 HOME 
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5*0 PRINT .'MODELLO! '$MO*<OH> 

570 PRINT 

580 PRINT 'STIMA DI A = '!A 

590 PRINT 'STTMA ni B »* !B 

*00 PRTNT 

*1.0 PRINT 'VARIANZA DI 1 ! VE* ( CH > ! ' = ■ ! SS 
*20 PRINT 

*50 PRINT 'VARIANZA ni ','VA*<CH>?'='jSA 
*40 PRINT 'VARIANZA DI B = '}SB 

*50 PRINT • PRINT 'COVARIANZA IH ■J VA*<CH)!',B «• SAP 
**0 PRINT ! PRINT '============================«===«====»•' 

*70 REM 

ARO REM POSSIRII ITA' DI INTERPOLAZIONE 

*90 REM 

700 PRINT ! INPUT 'CAI COLO IP INTERPOLAZIONE < S O NI ."SA* 

710 IF A$ = ’N' THFN END 

720 INPUT 'INTERPOLAZIONE PER x n V^S'A* 

ZZO IF A$ = ’Y' THFN ROTO 820 
740 PRINT ! HTAB <51! INPUT 'X=';X 

750 ON CH BOTO 7*0.770.780,790! REM INTERPOLA7T0NE IN Y 

7*0 Y = A + B * X! GOTO 800 

770 Y = A * -iix A Bl! GOTO 800 

780 Y = A * EXP <B * XI ! GOTO ROO 

790 Y = A + B * ! 00 <X> 

800 PRINT TABI 5>!'Y'~'!Y 

810 GOTO 700 

820 PRINT ! HTAB <5)1 INPUT 'Y= 1 fY 

830 ON CH GOTO 840,850,8*0,870! REM INTERPOLAZIONE IN X 

840 X = <Y - A) / B! GOTO 880 

850 X = <Y / A) ^ <i / B)! GOTO 880 

8*0 X = LOG <Y / A) / B! GOTO 880 

870 X = EXP <<Y - A) / B) 

880 PRINT TABI 5)f'X=')X 

890 GOTO 700 

1010 REM SOTTOPROGRAMMA PER LA REGRESSIONE LINEARE 
1020 REM 

1030 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 

1040 REM 

1050 REM 1♦DATI NECESSARI! 

1060 REM * N=NIJMERO DI PUNTI 

1070 REM * X<I),Y<I> <I=1,,..,N> «COORDINATE DI TALI PUNTI 

1090 REM 2.RISULTATI FORNITI! 

1100 REM * A,B = PARAMETRI DFI..LA RETTA DI 

1110 RFM REGRESSIONE Y = A + B*X 

1120 REM * SS=VARIANZA DEGLI YII) 

I. 130 REM * SA=VARIANZA DI A 

II. 40 REM * SB=VARIANZA DI B 

1.1.50 REM * AB-COVARTANZA DI A,B 

11*0 REM 3,VARIABILI UTILIZZATE! 

1.170 REM A,AB,B,I,N,SA,SB,SS,X2,XM,XY,YM 

1180 REM 4.VETTORI UTILIZZATI! 

1190 REM X < N>,Y<N) 

1210 REM 

1220 REM INIZI ALIZZAZI ONE 

.1230 REM 

1240 XM = 0!YM = 0 

1250 XY » 0!X2 « 0 

12*0 SS = 0 

1270 REM 

1.280 REM CALCOLO DI XM F YM <VALORI MFDI DI X F VI 
.1290 REM 

1300 EOR I = 1 TO N 

131.0 XM = XM + X<I> 

1.320 YM = YM + Y< I ) 

1.330 NEXT I 
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1340 XM - XH / N 
1.350 YM = YM / N 
1340 RFM 

1.370 RFM CAI.COI 0 ni X?=SOMMA DEGLI SCARTI QUADRATICI E XY=SOMMA DEGLI 
(Xm-XH)»Y(I) 

1.380 RFM 

1790 FOR I = 1 TO N 

1.400 X? = X? + <X(I) - XM) A ? 

.14.10 XY = XY + <X(I> - XM) * Y< I > 

1420 NFXT I 
1430 RFM 

1.440 RFM CAI.COI 0 UFI PARAMETRI A F B 

1450 RFM 

1.460 B = XY ./ X7 

1470 A = YM - B * XM 

1.480 RFM 

1.490 REM CA! Cni..O riF 1 I A VARIANZA DI YCT) 

1500 RFM 

1.51,0 FOR I = 1 TO « 

1.520 SS « SS ( Y< I ) - A - B * Xf I) ) A 2 

1.530 NFXT I 

1540 SS = SS / (N - 2) 

1550 RFM 

1560 RFM RAI roto DELLE AI..TRF VARIANZE 
1.570 REM 

ISSO SA = SS * <(1 / N) + (XM * XM / X?>) 

1.590 SB = SS / X2 

1.600 AB = - SS * XM / X2 

161.0 RETURN 

2000 RFM ********************************************* 

2010 REM SOTTOPROGRAMMA PER L'ADATTAMENTO AB UNA CURVA DI P0TFN7A 
2020 REM 

2030 REM REGOLE PER ! 'USO DF' SOTTOPROGRAMMA 
2040 REM 

2050 RFM 1. -DATI NECESSARI! 

2060 RFM * N=NUMERO DI PUNTI 

2070 RFM * X ( I > - Y ( I > <T = 1 ... . , ,N) «COORDINATE DI TALI PUNTI 

2080 RFM 7,RISULTATI FORNITI! 

2090 REM * A-B « PARAMETRI DELLA CURVA DI REGRESSIONE ! 

2100 REM Y = A*(X A B> 

2110 REM * SS=VARIAN7A DI lN<Y(I)) 

2120 REM * SA-VARIANZA DI LN(A) 

2130 REM * SB=VARIANZA DI B 

2140 REM * AB=COVARIANZA DI LN(A)■B 

2150 REM 3.VARIABILI UTILIZZATE! 

2160 REM A,I,N 

2170 REM 4.VETTORI UTILIZZATI! 

2180 REM X(N),Y(N) 

2190 REM 5.SOTTOPROGRAMMA CHIAMATO! 

2200 REM 1000 ! REGRESSIONE LINEARE 

2210 REM ********************************************* 

2220 REM 

2230 REM CAMBIAMENTO DI VARIABILI 

2240 REM 

2250 FOR I = 1. TO N 
2260 X(I) = LOG <X(I)) 

2270 Y(I) = LOG (Y(I)) 

2280 NEXT I 

2290 REM 

2300 REM CHIAMATA DEI. SOTTOPROGRAMMA PER LA REGRESSIONE LINEARE 

2310 REM 

2320 GOSUB 1000 

2330 A = EXP (A)! REM TRASFORMAZIONE INVERSA 
2340 RETURN 

3000 REM ********************************************* 

3010 REM SOTTOPROGRAMMA D'ADATTAMENTO AD UNA CURVA ESPONENZIALE 
3020 REM 
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3030 REM REGOLE PER L'USO DEL SOTTOPROGROMMA 
3040 REM 

3050 REM 1-DATI NECESSARI! 

3060 REM # N=NUMERO DI PUNTI 

3070 REM * X ( I ) - Y ( I ) <t = l,l..,N> -COORDINATE DI TAI. I PUNTI 

3080 REM ?.RISULTATI FORNITI! 

3090 REM * A,B = PARAMETRI DELLA CURVA DI REGRESSIONE! 

3100 REM Y = A*EXP(B*X> 

311.0 REM * SS-VARIAN7A DEI LN<Y<I)> 

3120 REM * SA-VARIAN7A DI |,N(A) 

3130 REM * SB=VARIANZA DI B 

3140 REM # AB=COVARIANZA DI LN(A),B 

3150 REM 3,VARIABILI UTILIZZATE! 

3160 REM A.I r N 

3170 REM 4,VETTORI UTILIZATI! 

3180 REM X(N),Y(N) 

3190 REM 5.SOTTOPROGRAMMA UTILIZZATO! 

3200 RFM 1000 ! REGRESSIONE LINEARE 

3220 REM 

3230 REM CAMBIAMENTO DI VARIABILE 
3240 REM 

3250 FOR I = 1 TO N 

3260 Y(I) = LOG <Y<I>> 

3270 NEXT I 

3280 REM 

3290 REM CHIAMATA DEL.. SOTTOPROGRAMMA PER LA REGRESSIONE LINEARE 

3300 REM 

3310 GOSUB 1000 

3320 A = EXP (A)t REM TRASFORMAZIONE INVERSA 
3330 RETURN 

4000 REM *%***M**tX%**XX%X%*tMM%%X%%M*%X***%XX*XM 

4010 REM SOTTOPROGRAMMA PER I 'ADATTAMENTO AD UNA CURVA LOGARITMICA 

4020 REM 

4030 REM REGOLE PER L'USO DEI. SOTTOPROGRAMMA 
4040 REM 

4050 REM 1♦DATI NECESSARI? 

4060 REM * N=NUMERO DI PUNTI 

4070 REM * X<I)yY(T) <1 = 1-♦♦♦-Ni COORDINATE DI TA! . T PUNTI 

4080 REM 2»RISULTATI FORNITI? 

4090 REM * A y B = PARAMETRI DEL! A CURVA DI REGRESSIONE? 

4100 REM Y = A+B*LN<X> 

4110 REM * SS=VARIANZA DI Y(I) 

4120 REM * SA=VARTANZA DI A 

4130 REM * SB-VARIANZA DI B 

4140 REM * AB=COVARIANZA DI A r B 

4150 REM 3♦VARIABILI UTILIZZATE? 

4160 REM IrN 

4170 REM 4 - VETTORI UTILIZZATI? 

4.180 REM X(N) -Y(N) 

4190 REM 5 * SUBROUTINE CHIAMATA? 

4200 REM 1.000 ? REGRESSIONE I. TNEARF 

4210 REM H******************************************** 

4220 REM 

4230 REM CAMBIAMENTO DI VARIAR!! I 
4240 RFM 

4250 EOR I = 1 TO N 

4260 X(I) = LOG (X(I) ). 

4270 NEXT I 

4280 REM 

4290 REM CHIAMATA DEI... SOTTOPROGRAMMA PFR I A REGRESSIONE LINEARE 

4300 REM 

4310 GOSUB 1000 

4320 RETURN 


185 






4 - ESEMPIO PRATICO 


Vengono presi in considerazione l’adattamento ad una retta e ad una funzione del 
tipo y = ax b . Per ciascuno dei due casi sono state scelte 5 coppie di valori 
sperimentali e precisamente: 


a) per y = a + bx x = 

y = 

b) per y = ax b x = 

y = 


1 2 3 4 5 

4.95 8.03 10.78 14.06 16.39 

1 2 3 4 5 

4.97 39.81 136.01 318.76 627.20 


RUM 

REGRESSIONI AD UN PARAMETRO 
AUTORE JhUHAUT 


1. » DEFINIRE TL TIPO DI CURVA A CUI SI 
VOCI TONO ADATTARE I DATI? 

1=RETT A 

2-FUNZIONE DEI. TIPO A*X A B 
3=CURVA ESPONENZIALE 
4=CURVA LOGARITMICA 

2 ♦ INTRODURRE IL NUMERO DI DATI SPERIMEN¬ 
TALI 

3♦ INTRODURRE LE COPPIE <X<I),YCI>> L."UNA 
DOPO L'ALTRA 

PREMERE UN TASTO PER PROSEGUIRE 
TIPO DI REGRESSIONE? 

:I.~Y=A + B*X 
2=Y=A * (X A D> 

3=-’Y=A* EXP<B*X> 

4=Y=A + B*I.N<X> 

VOSTRA SCELTA CI. -2,3,4 )?1 


NUMERO DI PUNTI= 5 


X=1 

Y“4♦95 


X=2 

Y=8,03 


X=3 

Y=1.0,78 


X=4 

Y-1.4,06 


Y = .1.6,39 

MODELl 0? Y=A -»• B*X 
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STIMA DI 

A 

=?♦ :i. 6? 

STIMA dt 

P 

=2*891. 

VARIANZA 

DT 

Y = * 0A1.290OO0A 

varianza 

DI 

A SS.0A741.9000A 

VARIANZA 

DI 

P -A *129O000AF-03 

COVARIANZA DT 

A ,P =-*0183870002 


CALCOLO ri'INTERPOLAZIONE <S 0 N> !S 
INTERPOLAZIONE PER V 0 vtjy 

Y~1 0 

X=7*708751.3 

CALCOLO D' INTERPOLAZIONE (8 0 N> JN 


RUN 

REGRESSIONI AD UN PARAMETRO 
AUTOREiH♦HAUT 


1. ♦ DEE INI RE IL TIPO DI CURVA A CUI SI 
COGLIONO ADATTARE I DATI: 

1=RETT A 

2=FUNZI0NE DEL TIPO A*X A P 
3=CURVA ESPONENZIALE 
4=CURVA LOGARITMICA 

2 * INTRODURRE IL NUMERO DI DATI SPERIMEN¬ 

TALI 

3 * INTRODURRE LE COPPIE <X<T),Y<T>) L'UNA 

DOPO I. 'Al. TRA 

PREMERE UN TASTO PER PROSEGUIRE 

TIPO DI regressione: 

1.=Y=A + B*X 
2=Y=A * <X a B> 

3=Y=A* EVP<B*X> 

4=Y=A + B*LN<X> 

MOSTRA SCELTA <1-2-3,4 )i?. 


NUMERO DI PUNTI» 5 


X=1 

Y=4*97 


X=2 

Y=39 ,R1. 


X= : 3 

Y=13**01 


X~A 

Y=31.8*7A 
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y=-f; 

Y-::A?7* ?0 

mopr i ni y--a * (XAyu 


STTMA pi a 

STTMA ri r s 


sA.970A1.7R*> 
=7,00S7S4S9 


U a R TANTA TU I N<Y) ~ 7 O 7 A7 9 I 7 F - O r 


U AR TANTA Tì r I N ( A ) =7 » 7 Al 7 A1 0?F-()S 
MARI ANTA DT P ”1 * 9047949P.F-0S 


nnUAR IANT A TU IN < A ) . T-: =:: 1 . 




CALCOLO TU INTFRPO! AZIONE <B H N) iS 
TNTFRPHl A7T0NF F'FR X 0 Y'MX 

X A 

Y“1 084.0A11 4 

HAI COLO TU INTFRP0LA7T0NF <8 0 N 'f * N 


tempo d’esecuzione: 2” 

memoria richiesta: 7063 bytes (senza REM : 2111) 
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PROGRAMMA NUMERO 15 


REGRESSIONE LINEARE MULTIPLA 


Questo programma sulla regressione lineare multipla permette di adattare dei dati 
sperimentali ad un modello teorico funzione lineare in diversi parametri, che dovran¬ 
no essere opportunamente stimati. Il programma fornisce i valori relativi agli estima¬ 
tori di questi parametri, i valori delle loro varianze e delle loro covarianze ed il valore 
della varianza della variabile dipendente. 


1 - METODO NUMERICO 

Il problema della regressione lineare multipla consiste nello stimare gli r parametri 
P,, p 2 ,.... P r di un modello lineare del tipo: 

y = Pi Xjl P 2 *(2 Pr Xjr 


sulla base di n insiemi di dati (xm, x i2 ,.... x ir , y, per i = 1,2.n). 


Come nel caso della regressione lineare semplice si supporrà che i valori x* 
rappresentino delle misure esenti da errori sperimentali e che le y* siano invece 
soggette ad un errore aleatorio e,, di media 0 e varianza O 2 . 

La soluzione si basa sul metodo dei minimi quadrati ed in particolare gli estimatori 
fedeli dei parametri p,,.... p r sono i valori che rendono minimo lo scarto quadratico: 

Q= 2: (Yj — Pi Xj-j ... Pr Xj r ) 2 

I 

Il valore degli estimatori si ottiene quindi risolvendo il sistema di r equazioni in r in¬ 
cognite: 

(1) --= 0 (k = 1,2. r) 

°Pk 
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Introduciamo ora le matrici: 


Xk = lx 1k ,x 2k .x nk ] T (k = 1.r) 

Y = ly,.y 2 .y n l T 

B = [b,, b 2 .b r F 

P =[P,.P 2 .P r F 

X = matrice (n, r) le cui colonne sono X,, X 2 .X r 

ove T denota la trasposta della matrice. 

Con queste notazioni, il sistema (1) può essere scritto nella forma matriciale 
(X T X)B = X T Y e la soluzione (vale a dire la matrice colonna B degli estimatori dei Pi), è 
data da: 

(2) B = (X T X)— 1 X T Y 

Si può allora calcolare la matrice delle covarianze £t>: 

£=E[(B-P) (B — P) T 1 = oMXTX)- 1 

b 

in cui un estimatore fedele di C 2 è dato da: 

s 2 = (somma residua dei quadrati) 
n — r 

ove la somma residua dei quadrati è data da 
£ (Vi - V,) 2 con y, = b, x- t1 + b 2 x i2 + ... + b r x ir 
Riferimenti bibliografici: C5, Gl, H2. 


2 - TECNICA DI PROGRAMMAZIONE 

Dopo aver definito le matrici X e Y nel modo seguente: 



si calcola il valore di X T X e lo si memorizza in una matrice AA(r,r) mentre in una 
matrice BB si memorizza X T . 
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L’uso del soltoprogramma per l’inversione di una matrice permette di risolvere 
l'equazione (2) fornendo la soluzione nella matrice BB e (X'OQ- 1 in AA. Quest’ultima, 
moltiplicata per a 2 fornirà la matrice delle covarianze ?b- 

Per calcolare la somma residua dei quadrati, si calcola dapprima y, = ? Xjj B it 
poi? (Yi - 9i) 2 ed infine l’estimatore fedele di a 2 . 

Nota: 


Il programma può essere utilizzato per un qualsiasi modello lineare nei parametri 
da stimare. Il modello generale di tale funzione è dato da: 

y, = P,f, (Xji, ...) + P 2 f 2 (x h , ...) + ... + B r f r (xh, ...) 

in cui le fj sono funzioni arbitrarie delle variabili x i1t x i2 ,.... x is 


X = 


M x 11, •••) f2( X 11 > •••) ■■■ fr(x n , ...) > ' 
f 1 (x 2 i, •••) f 2 (x 21 , ...) ... fr(x 21 , ...) 


<fi ( x ni> •••) f 2 (x , ...) ... fr(X n i, ...)/ 
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DIAGRAMMA -- 

A BLOCCHI ( INIZIO 


DI* XfWD/NP) 
ytN'D) 
AA(vf»4,WM) 
WW-W I) 


NP = numero parametri: r 
ND = numero dati: n 


r X(I,5) 

yci) \ 


Inserimento dati 


GOSU0I 


Stampa della somma 
residua dei quadrati 


,b L, 


Stampa dei parametri e 
della loro deviazione standard. 



m 


/matvice 

/ ^ y 

ItovAnimai 


' intero- 
. fazione. 


FINE 
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4 - PROGRAMMA 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 

10 REM 

11 REM 
100 REM 
110 REM 
120 REM 


130 

HOME 




140 

PRINT 

TAB< 8)!‘PROGRAMMA DI REGRESSIONE" 



1.50 

PRINT 

TAB< 1.1 ) ; "LINEARE MULTIPLA* 



160 

PRINT 




1.70 

PRINT 

TAB( 20)!‘AUTORE !H.HAUT‘ 



180 

PRINT 

J PRINT 



1.90 

PRINT 

■1,DEFINIRE IL NUMERO DI GRUPPI DI DATI 

NED! 

PARAMETRI NP 


■ ! PRINT 



200 

PRINT 

■2,INSERIRE POI GLI ND GRUPPI DI DATI 

SECONDO 

[ IL SEGUENTE 


MODELLO!■ 



210 

PRINT 




220 

PRINT 

‘ Y(I)=B(1)#X(I,1) + B(2)#X(I,2) + , 


♦4+B(NP)*X<I, 


NP ) 



1= 


1,2, . 

, . ,ND* 



230 

PRINT 




240 

PRINT 

■3,SE B(l> RAPPRESENTA UN TERMINE COSTAN- TE, TUTTI GLI X(I,1) 


DEVONO ESSERE UGUALI A 1) 



250 

UT AB 

(22)! PRINT ‘PREMERE UN TASTO PER PROSEGUIRE"i GET 

A$ 

260 

REM 




270 

REM 

GESTIONE DEI DATI IN INPUT 



280 

REM 




290 

HOME 




300 

PRINT 

•MODELLO! ■ 



3.1.0 

PRINT 

* Y(I>=B<1. >*X<Iy.1. ) + B<2>#X( I ■ 2> + 4 


,,+B(NP)*X(I, 


NP) 



1 = 


1,2,, 

♦ * ,N .D* 



320 

PRINT 




330 

INPUT 

■NUMERO DI PARAMETRI! NP=‘!NP 



340 

INPUT 

■NUMERO DI DATIi ND= * ?ND 



350 

REM 




360 

REM 

ISTRUZIONI DI DIMENSIONAMENTO 



370 

REM 




380 

DIM X(ND,NP),Y(ND),AA(NP - 1,NP - 1),BB(NP - 

1,0) 


390 

REM 




400 

REM 

INSERIMENTO DATI 



410 

REM 




420 

FOR I 

= 1. TO ND 



430 

PRINT 

! PRINT ‘GRUPPO ‘ ! I i ■ DI DATI’ 



440 

FOR J 

= 1 TO NP t HTAB (10) 



450 

PRINT 

•X(‘!I!‘,‘)J5‘)‘!CV = PEEK (37)! VTAB 

(CV): HTAB 

(20)! INPUT ‘ 


= • ; x < i, j > 



460 

NEXT , 

.1 



470 

HTAB 

(IO)! PRINT ‘ Y <‘! I ! ’>‘iCV = PEEK (37)! 

UT AB (CU) ! 

HTAB (20)! INP 


■=’!Y(I) 



480 

NEXT : 

r 



490 

REM 




500 

REM 

CHIAMATA DEI... SOTTOPROORAMMA 



51.0 

REM 




520 

GOSUB 

1.000 



530 

REM 





PROGROMMA 01 REGRESSIONE 
LINEARE MULTIPLA 

AUTOREiH.HAUT 

DESCRIZIONE! 

IL. PROGRAMMA PERMETTE DI ADATTARE UN 
INSIEME DI DATI(X(1),.,,X(NP),Y) AL MODELLO 
Y=B(1)#X(1>+,,.+B(NR)*X(NP> 


REGOLE D'USO 




540 

REM 

GESTIONE DEI RISULTATI 


550 

REM 



560 

HOME : 

: CALI.. - 198 


570 

PRINT 

■SOMMA RESIDUA DEI QUADRATI= * ?SR 

580 

PRINT 

* VARIANZA DEGLI X<I) 

= ■ ;ss 

590 

PRINT 



600 

PRINT 

■STRIMA DEI ■? TAD< 75: 

> i■DEVIAZIONI■ 

6.1.0 

PRINT 

■PARAMETRITAB( 25)i 1 

■STANDARD" 

670 

PRINT 

■**************•; TAD( 

75) r * ********** 

630 

FOR I 

= 1 TO NP 



640 II. = I - 1 

650 SD = SOR (66(11,11)) 

660 PRINT 'B(■;i;■)=’:BB(I1-0)! T6B( 75)fSD 
670 NEXT I 
680 REM 

690 REM ST6MP6 EVENTUALE DELLO MOTRICE DELI E COVARIANZE 
700 REM 

710 PRINT : PRINT "SE NON SI VUOLE 1.6 MOTRICE DFU.F COVARIANZE, PR 

EMERE ESC 6LTRIMENTI UN ALTRO TASTO’.' SET 6$ 

770 IF 6SC (6$) = 77 THEN GOTO R70 
730 POR I = 1 TO NP 
740 HOME 

750 PRINT 'CO! 0NN6 •?!?■ DELI. 6 MOTRICE DI COVARIANZA:’ 

760 II = I - 1 

770 FOR J = 1 TO NP 

780 J1 = J - 1 

790 PRINT T6B( 5) ?66( Il, J1. ) 

800 NFXT J 

810 PRINT ■PRFMERE UN TOSTO PER CONTINUORF' 

870 OFT 6$ 

830 NEXT I 
840 REM 

850 REM SCELTO PER L'INTERPOL6ZIONE 
860 REM 

870 PRINT 1 INPUT * INTERPOL.07IONE?(S 0 N) : *;o* 

880 IF 0* = ’N* THEN END 
890 YT = 0 

900 FOR I = 1. TO NP 

910 PRINT "X 1 JI)’='iCV = PEEK (37)1 VTOB (CV): HTOB (6)! INPUT * ’SX 
970 YT = YT + X * BB( I - .1,0): REM COI COI 0 DELI. ' INTERPOL OZIONE SECONDO IL 
MODELLO DOTO 
930 NEXT I 

940 PRINT : PRINT "Y= '? TOB( 7)!YT: PRINT 
950 GOTO 870 

1010 REM SOTTOPROGROMMO DI REGRESSIONE LINEARE MULTIPLO 
1070 REM ESSO PERMETTE DI ODOTTORE UN INSIEME DI DOTI 
1030 REM SPERIMENTO!...! (1,1 ),..., (I,NP),Y(I) 01. SEGUENTE MODELLO 
1040 REM OD NP POROMETRI* 

1050 REM Y <I)=B(1)*X(1,1) + B(7)*X(I,7) + ... + B(NP)#X(I,NP> 

1060 REM 1=1,7,,,,,ND 

1.070 REM 

1080 REM REGOLE PER L'USO DEL SOTTOPROGROMMO 
1090 REM 1 * DATI NECESSARI: 

1.100 REM * ND=NUMERO DI DOTI 

1110 REM * NP=NUMERO DI PARAMETRI 

1.170 REM * X( I. J) =VOLORI DELLE VARIARTI I INDIPENDENTI 

I. 130 REM DEFINITE NEI. MODELLO 

II. 40 REM 1 = 1,2,,,.,ND 

1150 REM ,1=1,7, ,, » ,NP 

1.160 REM * Y(I)=V6L0RI DELLO VARIASTI. E DIPENDENTE 

I. 1.70 REM 1 = 1,7,,.,,ND 

1180 REM 7,RISULTATI FORNITI: 

II. 90 PFM * BB(I-1.0)=STIMOTORE DEL PARAMETRO B(T) 

1.200 REM 1=0,i,« . . ,NP-1. 

1210 REM * 00(1-1,1-1)-COVARIANZA DI B(I),B(J) 

1220 REM 1=0,1,»,»,NP-1 
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1330 RFM J=0,1., , , • -NP-l 

1240 RFM # BR-SOMMA RESIDUA DEI QUADRATI 

1.250 RFM * SS-VARTAN7A DEGLI Y C X > 

1260 REM 3.VARIABILI UTILIZZATE! 

1270 REM 1,11, J,.,.U,K,M,N,ND,NP,SR,SS,ST 

isso REM 4 » VETTORI E MATRICI UTILIZZATI! 

12?0 REM AA (NP-l, NP-l) ,BB(NP-1,0),X(ND,NP),Y (ND ) 

1300 REM 5 * SOTTOPROGRAMMA CHIAMATO! 

1310 REM SUBROUTINE 2000 PER L'INVERSIONE DI UNA MATRICE 

1320 REM li************************************************* 
1330 REM 

1340 REM INIZIALI77A7I0NI 

1350 REM 

1360 SR = 0 !N = NP!M » 1 

1370 FOR I = 0 TO NP - 1 

1380 FOR J = 0 TO NP - 1 

1390 AA(I,J) = 0 
1400 NEXT J 

1410 PBd-O) = 0 
1420 NEXT I 

1430 REM 

1440 REM CALCOLO DELIA MATRICE X(T)X DA MEMORIZZARE IN AA 

1450 REM (SI USA X<T> PER INDICARE LA TRASPOSTA DI X) 

1460 REM 

1470 FOR I = 1 TO NP 

1480 FOR J = I TO NP 

1490 FOR K = 1 TO ND 

1500 II = I - 1. ! J1 = J - 1 

151.0 AA ( 11 ,J1> = AA (TI, J li + X ( K, T ) * X(K,J> 

1520 NEXT K 

1530 A A ( ...Il, T1. ) = AA1T1 ,J1 ) 

1540 NEXT J 

1.550 NEXT I 

1.560 REM 

1570 REM CALCOLO DI X(T)Y DA MEMORIZZARE IN BB 
1580 REM 

1590 FOR I = 1 TO NP 

1.600 II = I - 1 
1610 FOR K = 1 TO ND 


1620 BB(11,0) = BB(11,0) + X(K,I) * Y(K) 

1630 NEXT K 
1640 NEXT I 
1650 REM 

1.660 REM CHIAMATA DELLA SUBROUTINE PER I A RISOLUZIONE DI UN SISTEMA 

1.670 REM 

1680 OOSI1P 2000 

1690 REM 

1,700 REM CAI COLO DEGLI Y(T> TEORICI DEL. MODELLO 
1720 REM 

1.730 FOR I = 1 TO ND 
1740 ST = 0 
1750 FOR J = 1. TO NP 
1.760 ..Il = ...I - 1. 

1.770 ST - ST + X ( I, ,1 > * BB ( ,11,0 ) 

1780 NEXT .1 
1.790 X(T,0> = ST 
1800 NEXT T 
1810 REM 


1.820 REM CALCOLO DELL'ESTIMATORE DELLA VARIANZA DEGLI Y(I> 
1.830 REM 

1840 FOR I = 1. TO ND 

1850 SR = SR + ((Y(I) - X(I,0>> A 2) 

1.860 NEXT I 

1.870 REM SR=SOMHA RESIDUA DEI QUADRATI 
1880 SS = SR / (ND - NP) 

1890 REM 

1900 REM CALCOLO DELI.A MATRICE DELLE COVARIANZE 
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1.910 REM MEMORIZZATA IN AA(I,J> 

1920 REM 

1930 FOR I = 0 TO NP - 1 

1.940 FOR J = 0 TO NP - 1. 

1950 AA(I.J) = AA <If J) * SS 
1.960 NEXT J 
1970 NEXT I 
19B0 RETURN 

2000 REM ****************************************** 

201.0 REM SOTTOPROORAMMA PER I. A RISOLUZIONE 
2020 REM DEL SISTEMA MATRICIALE AA*X=BB 

2030 REM PER I DETTAGLI CFR PROGRAMMA SPECIFICO 
2040 REM ****************************************** 

2050 NI = N - 1JMI. = M - 1JDET = 1 
2060 FOR K = 0 TO NI 

2070 PV = AA(K,K)?IK = K?JK = KJPAV = ABS CPU) 

2080 FOR I = K TO NI ? FOR J = K TO NI. 

2090 IF ABS ( A A ( I, J > ) > PAU THFN PO = AA ( I ? J > ? PAV = ABS (PO) JIK = T?JK = 

..I 

2100 NEXT J.I 

2110 PC<K> = ,JKJPL(K) = IK 

21.20 « IF IK < > K THEN DET = - DET 

2130 IE JK < > K THEN DET = - DET 

2.140 DET = DET * PO 

2150 IF DET = 0 THEN HOME ? PRINT * IL DETERMINANTE E 7 NULLO, NESSUNA SOLIJZ 
IONE-: END 

21.60 IF IK = K THEN GOTO 2200 

21.70 FOR I = 0 TO NI ITT = AA( IK-1 ) ? AA< IK, I ) = AA(K, I ) ?AA(K,I> = TT ? NEXT 

I 

2180 IE MI = - 1. THEN GOTO 2200 

2190 FOR I = 0 TO MI ? TT == BB<IK,I>?BB<IK,I> = BB < K,I> ? BB < K,I> = TT ? NEXT 

I 

2200 IF JK = K THEN GOTO 22.20 

221.0 FOR I = 0 TO N1JTT = AA< I, JK) ? AA< I, JK) « AA< I ,K) ♦ AA< I ,K> = TT ? NEXT 

I 

2220 FOR I = 0 TO NIJCSd) = AA ( I ,K ) * AA ( I, K ) = OJ NEXT I 
2230 CS(K> = 0*AA(K,K) = 1 

2.240 FOR I = 0 TO NI ? AA(K -1 ) = AA(K,I) / PO? NEXT I 

2250 IF MI = - 1 THEN GOTO 2270 

2260 FOR I = 0 TO MIJBB(K,I) = BB(K-T) / PO ? NEXT I 

2270 FOR J = 0 TO NI? IF J * K THEN GOTO 231.0 

2280 FOR I = 0 TO N!.?AA(J,I) = AA(J,I) - CS( I) * AA(K-I)? NEXT I 

2290 IF MI = - 1 THEN GOTO 2310 

2300 FOR ! = 0 TO M1.?BB<J,I> = BB(J,I> - CS(,.D * BB(K, T ) ? NEXT I 
231.0 NEXT J 
2320 NEXT K 

2330 FOR I = NI TO 0 STEP - 1. ?IK = .PC<T) 

2340 IF IK = I THFN GOTO 2380 

2350 FOR J = 0 TO NI ITT = AA(I,J)?AA(I,J) = AA(IK-J)? AA(IK,J) = TT♦ NEXT 

,1 

2360 IF MI = -1 THEN GOTO 2380 

2370 FOR J = 0 TO M.1 ?TT = BB ( I, .O ? BB < I r J ) = BB ( IK, J ) ? BB (IK, J ) = TT ? NEXT 

,1 

2380 NEXT I 

2390 FOR J = NI. TO 0 STEP - 1. ?JK = PL(J> 

2400 TF JK = I THEN GOTO 2420 

24.1.0 FOR I = 0 TO NI J TT = AA < I, J ) ? A A ( I, J ) = AA ( I, JK ) ? AA ( I, JK > = TT? NEXT 

I 

2420 NEXT J 
2430 RETURN 
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5 - ESEMPIO PRATICO 


L’esempio presentato è relativo ad una regressione lineare a 4 parametri (NP = 4) 


relativa a 6 gruppi di dati (ND 

= 6): 




X, = 

1 

1 

1 

1 

1 

1 

X 2 = 

0 

1 

1 

4 

1 

0 

x 3 = 

0 

0 

1 

3 

3 

i 

x 4 = 

0 

0 

0 

2 

2 

0 

y = 

0.98 

3.96 

1.99 

-2.98 

-12.01 

-i 

viene inoltre calcolata 

l’interpolazione per x, 

= 1, x 2 

= i, 


RUN 

PROGRAMMA OT REGRESSIONE 
! INE ARE Min TIPI A 

AUTORE JH.HAIJT 


1. .DEFINIRE IL NUMERO ni GRUPPI IH PATI 
N E ni PARAMETRI NP 

2.INSERIRE POI GLI NP GRUPPI PI PATI 
SECONPO II. SEGUENTE MODELLO; 

Y<I>=B<l)*X(I,t> + B<2)*X<I,2> + .. 

.,+B(NP>*X(I,NP> 

1=1,2,,,.,NP 

3,SE PCI) RAPPRESENTA UN TERMINE COSTAN¬ 
TE, TUTTI GLI X <I -1> DEVONO ESSERE 
UGUALI A 1) 

PREMERE UN TASTO PER PROSEGUIRE 

modello; 

Y<I'=B(1)*X(T,11 + B(2)*X<I,2I + 

,,+B<NP>*X<I,NP> 


1=1,2,,,jjND 


NUMERO 

DI PARAMETRI 

; NP 55 - 

NUMERO 

PI dati: 

ND-< 

GRUPPO 

1 PI PATI 



X(1,1) 



X(1 ,2) 

— 1 . 



=0 


X ( 1,3 ) 

=0 


X(1,4) 

= 0 


Y < 1 > 

=0*98 
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GRUPPO 2 DI DATI 


X < 2,1 ) 


X < 2 r 2 ) 


X ( 2,3 ) 



-0 

X ( 2 f 4 ) 

=0 

Y(2> 

“3 ♦ 9 A 

GRUPPO 3 DI DATI 


X < 3,1 ) 


X ( 3,2 ) 


X < 3,3 ) 



= 1 

X ( 3 r 4 > 

=0 

Y( 3 ) 

= 1.9? 

GRUPPO 4 DI DATI 


X(4,l) 

= 1 

X ( 4 r 2 ) 

= 4 

X ( 4,3 > 

=3 

X ( 4 r 4 ) 

=*? 

Y ( 4 > 

=-2 » 98 

GRUPPO 5 DI DATI 


X ( 5,1 ) 

= 1 

X ( 5 T 2 ) 


X<5,3> 


X<5,4> 



=2 

Y(5) 

=-1.2 a 01. 

GRUPPO 6 DI DATI 


X < 6 r 1 ) 

= 1 

X(A,2) 

=0 

X<A,3) 


X ( A - 4 ) 



=0 

Y<A) 

=-l. 

GOMMA RESIDUA DEI 

(TU ADRATI 


04 

VARIANZA DEGLI Xd > 
04 


5»36363A37E~ 
2 ♦ ABI. B1B1.8E- 
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STRIMA DEI 
PARAMETRI 

B<1)=♦967272719 
B<2>=3*00545455 
B(3)=-1. *97499998 
B<4)«-5♦02545457 


DEVIAZIONI 

STANDARD 

♦ 0120946679 

A.987R5977E-03 

* 01A37A257B 
♦0227A13381 


SE non si VUOLE l.A natrice delle 
covarianze, premere esc altrimenti un al 

TRO TASTO 

COLONNA 1. DELLA MATRICE DI COVARIANZA * 

1*4A280992E-04 
-2 ♦ 43B01. A53E-05 
“1.34090909E-04 
1. ♦58471075E-04 

PREMERE UN TASTO PER CONTINUARE 

COLONNA 2 DELLA MATRICE DI COVARIANZA? 

-2♦43801A53E-05 
4♦8760330AE-05 
-3 ♦ 5001.0768F-14 
-4.R7A0330AF-05 

PRFMFRE UN T ASTO PER CONTINUARE 

COLONNA 3 DELLA MATRICE DI COVARIANZA♦ 

-1 » 34090909F-O4 
4 • 0A1. 1.0055E-1.4 
7 * 6818181 9E-04 
~3. ^ e “'277?74F-04 

PRFMERF UN TASTO PFR CONTINUARE 

COLONNA 4 DEI LA MATRICF DT COVARIANZA? 

1. * FÌR471 07SE-O4 
- 4 , R7A03307F-05 
-3♦35227274F-04 
5* 1.807851 3F-04 

PREMERE UN TASTO PFR CONTINUARE 


INTERRO! AZIONE*? fR o Ni! 
X1.= 

.1 

X2= 

1 

X3= 

1 . 

X4 = 

1 


•3 ♦02772728 


TNTFRPOI A7T0NE*?fS 0 Ni? N 


tempo d’esecuzione: 7”3 

memoria richiesta: 6881 bytes (senza REM : 3385). 
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PROGRAMMA NUMERO 16 


ADATTAMENTO AD UN POLINOMIO 


1 - METODO NUMERICO 

L’adattamento di dati sperimentali ad una funzione polinomiale può essere visto 
come un caso particolare di regressione lineare multipla applicata al modello teorico 

Yi =Po+ Mi +M? + + Pd x i 

Il problema consiste pertanto nella ricerca degli estimatori b 0 , b,, .... b d dei 
coefficienti p o , p,, .... p d utilizzando le n coppie di dati sperimentali (X|, yj). 

Il metodo ricalca essenzialmente quello svolto nel capitolo precedente. Le matrici 
X e Y vengono definite nel modo seguente: 



Il numero dei parametri p, risulta essere r = d + 1 (ove d è il grado del 
polinomio). 

Il programma fornisce gli estimatori dei parametri p jt la loro deviazione standard, 
lo scarto quadratico, la varianza di yj, la matrice E b delle covarianze e permette di 
stimare il valore y relativo ad un qualsiasi valore x. Il programma infine fornisce, a ri¬ 
chiesta, un grafico del polinomio interpolatore con una rappresentazione dei dati spe¬ 
rimentali. 

Riferimenti bibliografici: C5, Gl, H2, W1. 
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Nota tecnica: 

Il programma corrispondente al listing presentato qui di seguito richiede la disponi¬ 
bilità di una memoria superiore a 16K per fornire una rappresentazione grafica del 
polinomio. Per far “girare" ugualmente il programma su un elaboratore con una me¬ 
moria di 16K occorre eliminare buona parte delle linee di commento. In particolare si 
consiglia di sopprimere le seguenti linee presenti nel listing: 

1-120, 190-280, 360-380, 450-470, 490-510, 610-630, 760-780, 820, 
900-920, 950-960, 1040-1070, 1120, 1220-1230, 1290-1310, 1330, 1410, 
1450, 1520, 2010-2270, 2290-2310, 2380-2400, 3010-3080, 4010-4050. 

Si può inoltre notare che le due sub-routines relative alla regressione lineare multi¬ 
pla ed alla risoluzione di un sistema sono presentate in forma compatta; ciò permet¬ 
terà al lettore, confrontandole con quelle presentate nei capitoli precedenti, di ren¬ 
dersi conto dei vantaggi ottenuti sia in termini di memoria utilizzata che di velocità di 
esecuzione. 
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DIAGRAMMA 
A BLOCCHI 


INIZIO 


• - - - - 4 grado del polinomio 


-- J numero dei dati 


PtH 

VD (I/O) 

Xt> (VD) 

y cut) 

AA (OC,DE) 
6R(oe,tf) 


fvct) ( ya)/'- inserimento dati 


&0SUQ 


Ìj6A<6 --4 Sub ' rou,ine di regressione 
' ' | lineare multipla 


/SR^-b 
f B(r) et- ; 


• — - - - -I Stampa risultati 


/maftic <1 
I connina 


H / interpol' 

^ \ sion? ? 


Valore del punto 
da interpolare 

f Calcolo di Y con 
l'algoritmo di Horner 


Stampa del valore 
interpolato 
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3 - PROGRAMMA 


1 REM ADATTAMENTO AD UN POLINOMIO 

2 REM DI GRADO DE. 

3 REM 

4 REM AUTOREIH.HAUT 

5 REM 

6 REM 

7 REM descrittone: 

B REM IL PROGRAMMA PERMETTE DI ADATTARE UN INSIEME 

9 REM DI DATI SPERIMENTALI AD UN POLINOMIO DI GRADO 

10 REM DE! Y=B(0> + BI1)*X + B<2>*X A 2 + ... + BIDÈ)* X A DE 

11. REM 

1.2 REM 
100 REM 

110 REM REGOLE D'USO 
120 REM 
130 HOME 

140 PRINT TABI 8)?"ADATTAMENTO A UN POLINOMIO” 

150 PRINT TABI 14):"DI GRADO DE • 

160 PRINT 

170 PRINT TABI 20)} 1 AUTORE !H.HAUT” 

180 PRINT : PRINT 

190 PRINT ”1.DEFINIRE II GRADO DEL POLINOMIO E IL NUMERO DEI DATI 

SPERIMENTALI" 

200 PRINT 

210 PRINT ”2.INTRODURRE POI LE ND COPPIE DI DATI XII),VII) DA ADATTAR 

E AL POLINOMIO! Y=B10) + BI1)*X + ... + BIDE)#X A DE" 

220 PRINT 

230 PRINT ”3.IL PROGRAMMA FORNISCE GLI ESTIMATORI DEI Bill,LA MATRICE 
DELLE COVARIANZE, DA' LA POSSIBILITÀ' DI EFFETTUARE UNA INTERPOLA 
ZIONF E IL RELATIVO GRAFICO” 

240 VTAB 122): PRINT 'PREMERE UN TASTO PER PROSEGUIRE ”S GET A$ 

250 REM 

260 REM GESTIONE DEI DATI IN INPUT 
270 RFM 
280 HOME 

290 INPUT "GRADO DEL POLINOMIO* ”■DE 
300 PRINT 

310 INPUT "NUMERO DI DATI* ”JND 
320 REM 

330 REM ISTRUZIONI DI DIMENSIONAMENTO 
340 REM 

350 DIM XIND,DE + 1),YD!ND),AAIDE,DE),BB1DE,0),YI268),XDIND) 

360 RFM 

370 REM INSERIMENTO DATI 

380 REM 

390 PRINT 

400 FOR I = 1 TO ND 

410 PRINT 

420 PRINT T:CV = PFEN (37)! VTAB <CV)! HTAB <10)1 INPUT ”X=”:XD1I) 

430 HTAB 110): INPUT ”Y=”;YDII) 

440 NEXT I 
450 REM 

460 REM CHIAMATA DFL SOTTOPROGRAMMA 

470 REM 

480 BOSUB 2000 

490 RFM 

500 REM GESTIONE DEI RISULTATI 
510 REM 
520 HOME 

530 PRINT ‘SOMMA RESIDUA DEI QUADRATI* ”}SR 
540 PRINT "VARIANZA D XI* "? SS 

550 PRINT "ESTIMATORI DFJ ■ : TARI 25) "DEVIAZIONI ■ 

560 PRINT " PARAMETRI ",' TABI 25 );■ STANDARD ■ 

570 PRINT ■#**#**##**#***■ : TABI 25) •#**#*##*##" 
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580 for i = o to df 
590 SD = SOR <AA<I,I>) 

600 FRI NT 'B< ■ :i? ' ) = ■ iRR(T.O) ? TAB< 25)JSD 
610 REM 

620 REM STAMPA A ROM TESTA DEI. I. A MATRICE DI COVARIANZA 
650 REM 
640 NEXT I 

650 PRINT ! PRINT ‘SE SI UNO! E LA MATRICE PELLE COVARIANZE BATTERE UN TAS 
TO ALTRIMENTI ESC* i SET A$ 

660 IE ASC <A$) = 27 THEN ROTO 790 
670 EOR I = 0 TO DE 
680 HOME 

690 PRINT ‘MATRICE DI COVARIANZA’ 

700 PRINT ‘COLONNA ‘il?‘!‘ 

710 FOR .1 = 0 TO DE 

720 PRINT TAB( 5)JAALJ ? I) 

750 NEXT J 

740 PRINT J PRINT ‘PREMERE UN TASTO PER CONTINUARE‘♦ SET A* 

750 NEXT I 
760 REM 

770 REM FACOLTÀ 7 DI INTERPOLAZIONE 
780 R'FM 

790 PRINT J INPUT 'INTERPOLAZIONE'? <S O N)J‘?A$ 

800 IF A$ = ’N‘ THEN ROTO 950 
810 PRINT : INPUT ’X = ‘?X 

820 REM CALCOLO DELI 7 INTERPOLAZIONE CON IL METODO DI HORNER 
830 P = BB<DE,0> 

840 FOR I = 1 TO DF 

850 J1 = DE - I 

860 p = p # X + BB(Jl-O) 

870 NEXT I 
880 PRINT "Y=‘;p 
890 ROTO 790 
900 RFM 

910 REM STAMPA DEL RRAEICO (SE RICHIESTO) 

920 REM 

930 PRINT J INPUT • REPPRESENTAZIONE GRAFICA'? (S 0 N)t?A$ 

940 IF A$ = ’N" THEN END 
950 REM 

960 REM CALCOLO DI X MINIMO E X MASSIMO 
970 REM 

980 XI = 1E38♦XF = - 1E38 

990 FOR I = 1 TO ND 

I. 000 IE XD( I ) > XF THEN XF = XD(I) 

1010 IF XD(I) < XI THEN XI = XD(I> 

1020 NEXT I 

1050 XL = <XE - XI) / 266 

1040 REM CALCOLO DI Y MINIMO E Y MASSIMO 

1050 REM F CALCOLO SIMULTANEO DEI VETTORE Y(268) CHE 

.1060 REM DEFINISCE IL GRAFICO DEL POLINOMIO 

1070 REM 

1080 PI = BB(DEyO) 

1090 YI = 1E38?YE = - 1E38 

1100 FOR I ~ 0 TO 268 
1110 X = XI + I * XL 

1120 REM CALCOLO DEL VALORE DEL POLINOMIO IN X 
1130 p = pi 

II. 40 EOR J -• 1. TO DE 
1150 J1 = DE - J 

I. 1.60 P = P # X + BB(.llyO) 

II. 70 NEXT J 
.1.1.80 Yv'I) == P 

1190 IF P > YF THEN YF ^ P 
1.200 IE P < YI THEN YI = P 
121.0 NEXT I 

1220 REM PROSECUZIONE DEL CALCOLO PER Y MIN. F Y MAX. 

1230 REM TRA I VALORI DATI 
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1.240 

FOR I 

= 1 TO ND 

1.250 

IF YD'T) > YF THFN YF = YD<I> 

1260 

TF Y D < D ■=- YT THFN YI = YD< T ) 

1.270 

NEXT I 


1 280 

YL. = < YF - YI) / 148 

1290 

RFM 


1 7:00 

REM 

INIZIO DEI RRAFirn 

1310 

RFM 


1.330 

HOME ? 

HGR ? HCOJ 0R= 3 

1.330 

RFM 

REALIZZAZIONE DELI 'INQUADRATURA GRADUATA 

1.340 

HPLOT 

0,9 TO 0-159 TO 270,159 TO 270,9 TO 0,9 

1^50 

FOR I 

= 1. TO 9 

1360 

XP = 37 

* I ? YP = 159 - 15 * I 

1370 

HPI...OT 

268,YP TO 270,YP 

1.380 

HPIOT 

XP, 9 TO XP, 1.1 

1.390 

HPI...OT 

XP, 1.57 TO XP, 1.59 

1.400 

NEXT I 



1410 RFM STAMPA DEI LIMITI 

1420 VTAB <21) 

1.430 FRI NT ■X? , ?X!,* A "!XF?" PAR * $ 77 * X! 

1440 FRI NT 'Y?'$YT ? * A * $YF$ " PAR ■ $ 1 .5 * Yl 

1445 VTAB (1) 

1.450 RFM VISUALIZZAZIONE DEI PUNTI SPERIMENTALI 

1460 FOR I = 1. TO ND 

1470 XP = 268 + < XD< I ) - XF) / XI... 

1480 YP = .1.57 - < YD < I ) - YI) / Yl. 

1.490 HPLOT XP - 2* YP TO XP + 7-YP 

1.500 HPI .OT XP, YP - 2 TO XP-YP + 2 

1510 NEXT I 

1.520 REM GRAFICO DEL POLINOMIO INTERPOLATORE 

1.530 HPLOT 0,157 - <Y<0) - YI) / Yl. 

1540 FOR I = 1. TO 268 

1550 Yp = 157 - <Y<I) - YI) / YL 

1.560 HPLOT TO I,YP 

1570 NEXT I 

1580 END 

20.1.0 REM SOTTOPROGRAMMA DI ADATTAMENTO AL POLINOMIO 
2020 RFM Y=B<0) + B<1. >*X + B<2)*X A 2 + ♦♦ + B < DE >*X A DE 

2030 REM DEI DATI SPERIMENTALI X<I),Y<I) 

2040 RFM 

2050 REM REGOLE PER L'USO DEL SOTTOPROGRAMMA 
2060 REM .1. » DATI NECESSARI * 

2070 REM * DE=GRADO DEL POLINOMIO 

2080 RFM * ND=NUMERO DI DATI 

2090 REM * XD<I)=ASCISSE DEI PUNTI 

2100 RFM 1=1,2,♦♦♦,ND 

21.10 REM * YD< I)=ORDINATE DEI PUNTI 

21.20 RFM 1 = 1. ,2, ♦ ♦ ♦ ,ND 

21.30 RFM 2*RISULTATI FORNITI? 

2140 REM * BB(I - 0)=STIMA DI B(I) 

2150 RFM 1=0, .1. DE 

.2.1.60 RFM * AA<I,,.J>COVARIANZA DI B<I),B(J) 

21.70 REM I, ,1=0,1,♦♦♦,DE 

21.80 RFM * SR=SOMMA RESIDUA DEI QUADRATI 

2190 REM * SS=VARTANZA DEGLI Y<I) 

2200 RFM 3♦VARIABILI UTILIZZATE? 

2210 RFM DE,I -J-ND ? NP 

2220 RFM 4♦VETTORI E MATRICI UTILIZZATI? 

2230 REM X < ND ? DE+1. ) , XD < ND ) 

2240 RFM 5♦SOTTOPROGRAMMT RICHIAMATI? 

2250 REM 3000?REGRESSIONE LINEARE MULTIPLA 

2260 RFM 4000?RISOLUZIONE DI UN SISTEMA LINEARE 

2270 REM ***** ***************************************** 
2280 NP = DE + 1 
2.290 REM 

2300 RFM DEFINIZIONE DELLA MATRICE X DEL TESTO 


212 









1 ) 


3310 REM 

2320 POR I = 1 TO ND 
2330 X(I,1) = 1 
2340 FOR J = 2 TO NP 
2350 X(I,J> = XD(I) * (J - 
23X0 NPXT J 
2370 NPXT I 
2380 REM 

2390 REM CHIOMATO DEI SOTTOPROGRAMMA DT REGRESSIONE LINEARE MUI TIP! A 

2400 REM 

2410 BOSUB 3000 

2420 RETURN 

3000 REM ********************************************** 

3010 REM SOTTOPROGRAMMA DI REGRESSIONE LINEARE MUI TIPI.A 
30?0 REM UERSIONE COMPATTATA 

3030 PFM 

3040 REM CFR TI. PROGRAMMA DI REGRESSIONE ! INF ARE 

3050 PFM min TIPI A PER 'F RECO! E D'USO 

3060 REM T! VETTORE Y ( ND ) F' SOSTITUITO HAI, 

3070 REM UFTTORF YD(ND) 

3 ORO REM ********************************************** 

3090 R * o:n - np:m » 1 

3100 POR 1=0 TO NP - 15 FOR ,1 » O TO NP - 1!AA(T,,J) = OS NFXT JSBB<T,0> 

= O! NI-XT T 

3 110 FOR T = 1 TEI NP! POR .1 = I TO NP! POR K = 1. TO ND 

3120 TI = T - 1 5.11 = J - 1. !AA<I1.,J1 > = AA(I1,J1) + X<K,T> * X(K,J)! NPXT N 

3130 AA<J1,I1> = A A (I1,J1)5 NEXT ,1,1 

3140 FOR I = 1 TO NPSI1 = I - 15 FOR K = 1 TO NDSBB(I1,0> = BB<I1,0) + X( 

K,I) * YD(K)5 NEXT K,I 
3150 GOSUB 4000 

3160 FOR I = 1 TO ND5ST = 0 

31.70 FOR J = 1 TO NPSJ1 = J - 1SST = ST + X<I,J) * BB<J1,0)5 NEXT J 

3180 X(I,0) = ST! NEXT I 

3190 FOR I = 1 TO NDSSR = SR + <<YD<I) - X(I,0)) * 2)t NEXT I 
3200 SS = SR / (ND - NP) 

3210 FOR I » 0 TO NP - 15 FOR J = 0 TO NP - 1SAA(I,J> = AA(I,J) * SS! NFXT 
Jrl 

3220 RETURN 

4000 REM Xc************************************** 

4010 REM SOTTOPROGRAMMA PER L'INVERSIONE DI UNA MATRICE 
4020 REM IN VERSIONE COMPATTATA 

4030 REM 

4040 REM LA VARIABILE DET E' SOSTITUITA CON DT 
4050 REM *************************************** 

4060 NI = N - 1SM1 = M - 1SDT = 1 
4070 FOR K = 0 TO NI 

4080 PV = AA<K,K> 5IK = K5JK = K5 PAV = ABS (PV) 

4090 FOR I = K TO NI! FOR J = K TO NI 

4100 IF ABS ( AA< I ,.J> ) > PAV THEN PV = AA(I,J)5PAV = ABS (PV)SIK = ISJK =- 
J 

4110 NEXT J,I 

4120 PC ( K ) = JK ! F'L. < K ) = IK 

4130 IF IK < > K THEN DT = - DT 

4140 IF JK < > K THEN DT = - DT 

4150 DT = DT * PV 

4160 IF DT = 0 THEN HOME ! F'RINT * IL DETERMINANTE E' NULLO, NESSUNA SOLI) 
ZIONE*! END 

4170 IF IK = K THEN GOTO 4210 

4180 FOR I = 0 TO N15TT = AA(IK,I)5AA(IK,I) = AA(K,I)5AA<K,I) = TTt NEXT 

I 

41.90 IF MI. = - 1 THEN GOTO 421.0 

4200 FOR I = 0 TO M15TT = BB< IK, I ) 5BB< IK, I ) = BB< K, I ) 5BB<K, I ) = TTS NEXT 

I 

421.0 IF JK = K THEN GOTO 4230 

4220 FOR I = 0 TO NI. ! TT = AA < I, ,JK ) ! AA ( I, JK) = AA < I, K ) 5 AA ( I, K ) = TTS NEXT 

I 

4230 FOR I = 0 TO NllCS(I) = AA<I,K)!AA<I,K) = 05 NEXT I 
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4240 

OS < K> = 


0 ! AA ( K, K) = 1, 



4250 

FOR I 


0 TO NI. ♦ AA < K « I > =•• A A < K ■ I > / PO * NEXT I 



4260 

TF MI. 

= 

- 1. THFN GOTO 4280 



4.270 

FOR I 

= 

0 TO MI. !BB<KyT> - BB<K,I> / PO l NEXT I 



4280 

FGR‘ J 

= 

0 TO NI! IF J = K THFN GOTO 4X20 



4290 

FOR I 

- 

0 TO NI. JAACJy I ) = AA(J-I) - CS(J> * AA(K 

.I )t NEXT I 


4300 

IF MI. 

= 

-• 1 THFN GOTO 4370 



4310 

FOR I 

= 

0 TO MI iBB( J -1 > = BB(JyI> - CS( ,.D * BB(K 

rI>: NEXT I 


4320 

NFXT ,1 





4330 

NFXT K 





4340 

FOR I 

= 

NI. TO 0 8TEP - 1 * IK = PC(I) 



4350 

IF IK 

= 

I THFN GOTO 4390 



4X40 

FOR J 

= 

0 TO N1JTT « AA(IfJ)?AA<T-J) = AACINyJ)! 

AA(IK-J) = TTi 

NEXT 

4X70 

IF MI 

= 

- 1 THEN GOTO 4390 



4X80 

FOR J 

= 

0 TO MjITT = DB(I,J)!BB<I,J> = BB(IK,J)! 

BB(IKyJ) = tt: 

NEXT 

4X90 

NEXT I 





4400 

FOR ,.l 


NI TO 0 STEP - 1 ! JK = PL<J) 



441.0 

IF JK 

= 

J THEN GOTO 4430 



4420 

FOR I 

= 

0 TO NI. ?TT =: A A < I ? J > ♦ A A < I y J > = AA < I, JK ) ? 

AA(I,JK) = TT! 

NEXT 

4430 

NEXT J 





4440 

RETURN 






4 - ESEMPIO PRATICO 


L’esempio illustra l’adattamento ad un polinomio di terzo grado delle 7 coppie di 
valori sperimentali: 


x — 

y = 


- 3, - 2, - 1, 

- 4,5, 2.7, 3.1, 


0, 1, 3 

0.9, 2.6, 15.1, 42.6 


e fornisce la stima dei parametri, la matrice delle covarianze, una interpolazione per 
x = 0.5 ed una rappresentazione grafica dei dati sperimentali e della funzione poli¬ 
nomiale calcolata. 


1RUN 

ADATTAMENTO A UN POLINOMIO 

ni grado nr 

AUTORE SI-I.HAUT 


1.,DEFINIRE IL GRADO DEL POLINOMIO 
F IL NUMERO DEI DATI SPERIMENTALI 

2,INTRODURRE POI IE ND COPPIE DI DATI 
X ( I ) , Y < I > DA ADATTARE A! POLINOMIO! 
Y-B< 0 > + D(1. >*X + + B(DE>*X A DE 

X.Ti PROGRAMMA FORNIPCF GLI ESTIMATORI 
DEI B < I >, !.. A MATRICE DELLE COVARIANZE, 
DA' LA POSSIBILITÀ' DT EFFETTUARE UNA 
INTERRO! AZIONE E li REI ATTUO GRAFICO 
PREMERE UN TASTO PER PROSEGUIRE 
GRADO DE!.. POLINOMIO^ X 
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NUMERO DJ DATI- 7 


X=-3 

Y=~4,5 


X=-2 

Y=2,7 


X=-l 
Y=3,1. 


X=0 

Y=0.9 


X=1 

Y=2,6 


X-2 

Y=15,l 


7 


X = 3 

Y=42.6 

SOMMA RESTDUA DEI QUADRATI» ,30777777.9 
VARIANZA D XI= ,101111113 
ESTIMATORI DEI DEVIAZIONI 


PARAMETRI 
******* ******* 
B<0>=.842857139 
Di' 1 >=-, 930158738 
B<2>=2,02142857 
B(3)=,977777778 


STANDARD 

.183585687 
162936657 
.0346944336 
,0216357806 


SE SI VUOLE LA MATRICE DELLE COVARIANZE 
BATTERE UN TASTO ALTRIMENTI ESC 
MATRICE DT CnVARTAN7A 


COLONNA 0! 

.0337037043 
1.52689317E-11 
-4.8148149E-03 
-1.94105385E-12 

PREMERE UN TASTO PER CONTINUARE 
MATRICE DI COVARIANZA 
COLONNA i: 

1, 52689316E-.il 
.0265483543 
-3.3645922E-12 
-3,27674902E-03 


PREMERE UN TASTO PER CONTINUARE 
MATRICE DI COVARIANZA 
COLONNA 2! 

-4.8148149E-03 
-3.3645922E-12 
1.20370372F-03 
4.46338587E-13 
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PREMERE UN TASTO PER PONTTNUORE 
MATRICE PI COVARIANZA 
COLONNA 3! 

--1. ♦ 941.05385E-1? 

-3 ♦27674902E-03 
4 - 46338fJB6E*-13 
4*68107003F--04 

PREMERE UN TASTO PER CONTINUARE 

INTERPOLAZIONE*? <S 0 NMS 

X = 0, Fi 
Y=1♦00533714 

TNTERPOI AZinNE*? (S n NMS 

X = -0*5 
Y=1 *691 071.43 

INTERPOLAZTONF? <S 0 NMN 
REpPRESENTAZIONE GRAFICA (S 0 NMS 



tempo d’esecuzione : 10”2 (+ 26” per il grafico) 

memoria richiesta : 5869 bytes (per poter eseguire il grafico occorrono invece più di 
16K. Se non si dispone di tale capacità è necessario, come indi¬ 
cato in precedenza, eliminare dal testo del programma le frasi 
di commento). 
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Leggendo questo libro il lettore potrà formarsi 
quella logica di base indispensabile per la risolu¬ 
zione di problemi di matematica e statistica. 

Potrà altresi ottenere quattro risultati parimenti 
importanti. 

Comprendere a fondo la materia grazie all’ap¬ 
proccio metodico di analisi del problema. Appro¬ 
fondire i concetti di programmazione conosciuti. 
Eliminare la risoluzione “a mano” un’inutile perdi¬ 
ta di tempo. Avere alla fine, dei programmi che 
possono essere utilizzati sia singolarmente che in 
un ambito più vasto. 

Ad ogni programma viene preposta un’esposizio¬ 
ne schematica del metodo numerico e delle tecni¬ 
che di programmazione utilizzate il diagramma a 
blocchi relativo all’algoritmo, il listato (direttamen¬ 
te da calcolatore) e un esempio pratico (anche’es- 
so ottenuto da calcolatore) in cui tra l’altro vengo¬ 
no specificati il tempo e la quantità di memoria 
impiegati. 

Per la codifica dei programmi presentati (struttu¬ 
rati in due parti, una generale, assicura la gestio¬ 
ne corretta su video dell’input/output, l’altra, co¬ 
stituita da una routine a sua volta suddivisibile in 
più subroutine, è la risoluzione del problema) si è 
utilizzato il BASIC Applesoft implementato sul si¬ 
stema Apple II. 

Le particolarità di questa versione, però, sono uti¬ 
lizzate solo nella gestione input/output, per cui 
risulta molto semplice adattare gli stessi program¬ 
mi ad altre versioni BASIC. 
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